I'm trying to create an excel macro that can send emails with an attached file per row of my entry in excel I imagine it would be like the screenshot below. I've tried the code in the link below from a macro tutorial website but wasn't able to make it work due to error DataObject is unkown I'm using excel 2013 and lotus notes 8.5 as my email.
View 9 RepliesI have an Excel sheet that I use as a mailing automatism for reports. As it currently is it attaches an actual copy of the excel workbook to the email and send them out. The mailer contains several different people, and they get different report each day. Due to the size of some of the files, I am starting to run into an issue where I cannot sent the emails anymore because they are too big, so I am wanting to switch to sending links to the files instead, and I have hit a wall.
I use Lotus Notes 8.5. The VBA will cycle through a range, and each cell has a list of report delimited by a ",". It takes the list and passes it to the mailer as a string. The mailer takes the string, turns it into an array and splits it out, and then checks to make sure the reports are current. One email could have up to 10 different reports in it. I have tried creating an HTML MIME email to include the links.
Here is the code I currently have:
Code:
Sub Send_HTML_Email(ByRef Name As String, ByRef Address As String, ByRef Reports As String)
Const ENC_IDENTITY_8BIT = 1729
'Send Lotus Notes email containing links to files on local computer
Dim NSession As Object 'NotesSession
Dim NDatabase As Object 'NotesDatabase
Dim NStream As Object 'NotesStream
Dim NDoc As Object 'NotesDocument
[code]...
How to modify the below vba code? It sends an email with an attachment right away after pressing the macro button. I would like the user to see the email in outlook before it gets send... and then press 'send' in Outlook .....
Sub Mail_ActiveSheet()
'Working in Excel 2000-2013
'For Tips see: http://www.rondebruin.nl/win/winmail/Outlook/tips.htm
Dim FileExtStr As String
Dim FileFormatNum As Long
[Code] .....
I have an existing macro that convert active sheet to pdf then email it as an attachment thru outlook.
now, what i need is to attach another pdf file in it, so it will now be 2 attachment. here is my codes:
var all_spans = document.getElementsByTagName( 'SPAN' );
for( var i =0,skip =0 ; i [code]......
I managed to create the attached macro with help from stuff I've found in the internet. With this code, I am able to save the file and then send an email cia Lotus Notes. I need two things:
(1) The code to attach the file saved into the email that it sends
(2) The code so that the file is protected so that changes are not made by the recipient.
HERE IS THE
ActiveSheet.Copy
ActiveWorkbook.SaveAs filename:="V:TFMCO8 ReportingHistory" & [c22].Value & " " & Format$([c20], "- (YYYY-MM-DD)") & ".xls"
ActiveWorkbook.Close False
Dim Maildb As Object, UserName As String, MailDbName As String
Dim MailDoc As Object, Session As Object
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
MailDbName = Left$(UserName, 1) & Right$(UserName, _
(Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
Set Maildb = Session.GetDatabase("", MailDbName)
If Maildb.IsOpen Then
Else: Maildb.OpenMail...........
I have created a spreadsheet that requires the buttons on a customised tab/ribbon in order to use it.
If this is on my machine where I have customised the ribbon it works fine. However I need to email this spreadsheet to another person - but wanted them also to have my customised ribbon. Is there anyway to do this - or would I have to go and customise their ribbon on their machine?
I have yet to find ANY information online relating specifically to emailing any given range in Excel via Lotus Notes. The codes that do exist out there either fail to fully copy the range or relate to attaching an excel file into a Lotus Notes Memo.
Below I have copied the code the I am working with, but I keep getting the following error: Error # 438, Object doesn't support this property or method. After making some minor tweaks, it might then give me another error, Error 424 Object Required, but the range then doesn't copy into the Lotus Notes memo at that point.
I have highlighted the area that I think the code is failing at, that being the actual act of copying/pasting the range selected into the Lotus Notes Memo. With the current code, the selected range does get fully copied into a new memo in Lotus notes, but these errors populate in Excel.
Can anyone offer any suggestions to resolve this issue? I have spent hours on this and I'm sure there are many others out there that might be able to benefit from a solution as well.
Function LotusEmailQuote() ....
I am wanting to send an automatic email notification to several lotus notes accounts once a specific cell in my excel spreadsheet has been entered in (It does not matter what is entered into the cell).
View 9 Replies View RelatedWhen i click a button in excel, i need the table from a certain "Range" to copy/paste in the body of an e-mail that will send itself automatically. Now, i know how to build the macro to automatically send the e-mail but i can't find a way to insert the table in it. here's the code i'm using to send the e-mail:
Public Sub SendMail2()
'Tools --> references --> Microsoft Scripting runtime
'Variables
Dim EMailSendTo As Variant
[Code].....
But i don't know how to adapt the code for my problem.The fact is, i've just started to write macros and the code i'm using for the e-mail isn't from me, i have juste adapted it for my problem.
I have a macro that sends a custom email through lotus notes. It works, but will only generate 1 email instead of looping through my list. If I have "next r" at end I get email of 1st record. If I put "next r" before "On Error GoTo Audi"
I get last recorded emailed but not 1st 2. I don't know how to get it to send all. It seems the for next loop is jacked up.
For you to see macro work you need to have lotus notes and put email address in column B.
test file is attached.
The following line of code is part of the great work that this forum did in creating a macro to send an automated email through Lotus Notes.
I have a small tweak that requires the Body of the message to exist on sheet other than the one where the macro is launched.
The originial code had:
Body1 = Replace(Join(Application.Transpose(Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)
I tried:
Body1 = Replace(Join(Application.Transpose(Sheets("LookUp Sheet").Range([by9], [by18].End(3))), "@") & "@@Thank you,", "@", vbCrLf)
But the body of the email is not being copied.
Am I putting the calling the Sheets reference incorrectly?
The routine works perfectly if the body data comes from the sheet where the macro is launched?
I need to write a macro to split an excel file into separate workbooks and automatically email our project managers.
View 1 Replies View RelatedI have an excel file that will be downloaded by multiple users and saved locally. I was wondering if there was a way to build code into the file so that everytime it is saved an email would be created in lotus notes from the user to me with a copy of the file attached. Is this possible?
View 2 Replies View RelatedI have developed many macros that generate automatic emails from excel using Outlook, with the excellent help I've found here. Now due to recent buyouts, we have changed our email from Outlook to Notes. I'm looking for the simplest method of changing my macros so they will work with Notes. Below is the typical code I'm currently using. Is there an easy way to change it for Notes?
Public Sub SendEmail()
Dim OutApp As Object
Dim OutMail As Object
Dim Dist As String
Dim supplierinfo As Range
Dist = WorksheetFunction.VLookup(Supplier, Workbooks("ScarForm.xls").Sheets("Supplier Information").Range("a9:z1000"), 3, 0)
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(olMailItem)
With OutMail
.to = Dist
.CC = "emailnames"
.BCC = ""
.Subject = "email subject"
.Body = "Text of email"
Windows(Fname & ".xls").Activate
.Attachments.Add ActiveWorkbook.FullName
.Display
End With
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
I have a list of products in column A and a expiry column B. What I'm trying to do is when I open up excel, a macro gets invoked and creates a list of expiry products based on today, then sends me or someone else an email with a list attached or in body doesn't matter, so that I can attend to the problem. I've searched a lot of places and haven't found the right answer that I'm looking for. This shouldn't be new because I think others would have wanted to know something similar.
View 5 Replies View RelatedI am looking to build a macro that can automatically email a recipient upon their name being selected from a drop down list. It designed to be for a warehouse, so when new packages come in we can scan them in and have excel send an email out once our receiving team determines who it is for. With their being multiple recipients, I would like the code to have an IF type function that choosing the correct recipient. the Column titles "Recipient/Dept" is where the dropdown list is located.
It would be ideal for the code to just utilize an open Lotus Notes Session and use that to send the email.
Attached is the document with what I have thus far : Warehouse barcode test.xlsm
I have found the code that I need to send one spreadsheet or the entire workbook via lotus notes through VBA, but I cannot seem to find the way to email 2 specific spreadsheets anywhere..
I have tried both of these, but I get an error when running:
Code:
With Worksheets("Diario") And Worksheets("Periodo")
.Copy
stFileName = Worksheets("BD").Range("A1").Value & "- NDG " & Worksheets("Code").Range("K22").Value
Debug.Print stFileName
End With
Code:
With Sheets(Array("Diario", "Periodo"))
.Select
Selection.Copy
stFileName = Worksheets("BD").Range("A1").Value & " - NDG " & Worksheets("Code").Range("K19").Value
Debug.Print stFileName
End With
I would like the 2 sheets (Diario & Periodo) to be copied both to the same temporary workbook...
Any ways to automatically send emails using Lotus Notes.
On Lotus Notes, I automatically have my signature to append to an email, however when I am running Johns script at the bottom it is replaced with the file path of my signature (i.e. C:Program Fileslotus
otesdatasig.htm), and when I comment out the part where strSignature is mentioned there is no signature.
My code is below:
Sub mySub()
Dim x As Integer
Dim UserName As String
Dim MailDbName As String
Dim Recipient As Variant
Dim Maildb As Object
Dim MailDoc As Object
[Code] ...........
I have Excel 2003 and Lotus Notes Version 6 and I need to send out the active workbook from Excel. I have searched through the existing threads, but all the code that I run results in errors -
View 9 Replies View RelatedI wrote this code years ago to Auto Send Emails from Outlook...
Sub Emailfile()
Dim OutlookApp As Object
Const olMailItem = 0
Set OutlookApp = CreateObject("Outlook.Application")
Dim EmailContent As String
With OutlookApp.CreateItem(olMailItem)
EmailContent = Range("A1").Value
.To = "Test"
.Subject = "LSG Data File"
.Body = EmailContent
.Attachments.Add ("P:MI TeamICCE LEADS EXTRACTSLSGLSG Data File")
End With
End Sub
I can't figure out how to get it working for Lotus notes... So 2 things I guess really... Firstly is it possible? Second: If it is, how can I get it to send say 16 emails each with a specific attachment but the same commentary?
Finally I have the code all okay for Sending Reports, and other extra comments etc...
And now...
Is there code available for picking up images ( Screen snaps) and inserting into an email in Notes after the Body of the Message?
Either a reference to a link or some code would be greatly appreciated, cos I cannot find any info at this point in the archives ( Presuming I have searched using proper parameters ).
I have searched high and low on the forum and can not seem to find a solution to my problem. Here is my problem (besides being new to Lotus Notes): I need a button on my excel worksheet that gets information from Column H in the attached spreadsheet and puts all the emails in the To: (could be >than 100 email addresses) Field in Lotus Notes. I would like to have the subject read "New Email from Your Basin Coordinator" and have the CC list come from a second worksheet (CC).
View 4 Replies View RelatedI am trying to send 7 different emails in this sub, the sendnotes sub is not recognizing my GOLOOP value
As you can see I stole this code from this site. You all are terrific!
Sub SendFiles()
Sheets("Menu").Select
Range("C23").Select
Filename = ActiveCell.Value
GoLoop = "1"
SendNotesMail
GoLoop = "2"
SendNotesMail
GoLoop = "3"
SendNotesMail
GoLoop = "4"
SendNotesMail...................
1. I dont want this to auto send. I want it to compose the mail and leave it ready to hit the send button in lotus notes. How do I do that?
2. Would like to include multiple emails. If I put two emails (separated by comma or semicolon into cell C19, Lotus notes sends as one address and it bounces. (This is not terribly important, but would be a nice feature)
3. Would like to insert the signature line that's already configured on lotus notes. Since this auto sends the email, the signature is not added. Any idea how to do this?
4. Now this would be really nice, tell the macro which database to use. The one I want to use is not "my" email, but a shared email. It lives on server "Notes1/recovery" , in folder "mail" with a database named "company.nsf". Is there a way to do this?
Here is my code that works, but needs the above features.
Sub SendNotesMail()
Dim Maildb As Object
Dim UserName As String
Dim MailDbName As String
Dim MailDoc As Object
Dim Session As Object
Dim Recipient As String
Dim Subject1 As String
Dim ccRecipient As String
putting a macro button on an individual worksheet so the user can click a big easy button and a new email will pop up in Lotus notes with the worksheet attached for them to input the address and then send the worksheet..
I prefer to:
Send individual worksheets only
The ability to input the email address is the new composition email in LOTUS Notes
below is the code i use to create a lotus note email.
i would like it to display my email and send it manually instead of sending out automatically.
' Open and locate current LOTUS NOTES User
Set Session = CreateObject("Notes.NotesSession")
UserName = Session.UserName
[Code].....
>I am trying to convert a Lotus file over to Excel, and am having some trouble
>converting an error handling dget function.
>
>=IF(ISERR(DGET(Databaseread,"Name","GROUP
>ID"=GroupNumber)),VLOOKUP(GroupNumber,Databaseread,4,FALSE),DGET(Databaseread,"NAME","GROUP ID"=GroupNumber))
>
>This is the function that was used in Lotus; it returns the name of a
>company by looking at the ID number. I need to keep it as pure as possible to
>the Lotus file.
....
Lotus 123's @DGET (and other database functions) are much more
sophisticated than Excel's counterpart functions. 123's can use
criteria expressions in the function calls. Excel's require criteria
ranges.
In this particular case, there's no need to use DGET at all. There's a
single criterion term, so VLOOKUP is sufficient. If the "Name" column
were the 4th column in Databaseread, then try
=VLOOKUP(GroupNumber,Databaseread,4,0)
Explanation: it appears you're just trying to find a particular group
number. DGET (and @DGET in 123) returns an error if there's more than
one entry. VLOOKUP returns the first matching entry. You're formula
makes it clear you want either the only matching entry or the first
matching entry. However, when there's only one matching entry it's also
the first matching entry, so VLOOKUP alone would have returned the
desired result.
I suspect you have other formulas that are more complicated, but you
believed the formula above would be a reasonable sample to provide. Not
so. If you have more complicated D-function calls, show them, not the
simple ones.
I've got a file that works fine on my computer. When I email it to anyone with 2010 and they open it from their email account (Outlook 2010), the file automatically opens up in 'Protected Mode'. If the user selects "Enable Editing" the user receives 'Run Time error 91: Object variable or with block variable not set'.
If the user closes out the vba error and saves the file to their computer and reopens the file, it works fine.
BTW, it is not a complex macro, it is error out at
ActiveWorkbook.Sheets("Worksheet").Select
I have got a list of email with identification number + email address. The PowerPoint are named by the identification number.
Can I send out the PowerPoint to the corresponding email address using VBA automatically? Or is there any other way to do it?
I want to create a communication excel sheet. I want it in such a way that if any one of the team member make update and save the file, then the whole team should receive an email that the file has been updated.
View 9 Replies View Related