Hi all,
Hoping someone can help me here. I am using the below code to send out bulk emails. This works like a charm. I however need to add one and sometimes multiple attachements, be that pdf or word files. How do I do this and what code would I use? I have tried so many variants but just cannot get this to work.
Current working code below excluding being able to add attachments.
Please Login or Register to view this content.
Last edited by Leith Ross; 02-10-2015 at 06:13 PM.
Hello bruskieza,
Welcome to the Forum!
I modified your macro to take the path of the file(s) to attach. The files paths need to separated with a semi-colon ";".
Please Login or Register to view this content.
Sincerely,
Leith Ross
Remember To Do the Following....
1. Use code tags. Place [CODE] before the first line of code and [/CODE] after the last line of code.2. Thank those who have helped you by clicking the Starbelow the post.
3. Please mark your post [SOLVED] if it has been answered satisfactorily.
Old Scottish Proverb...
Luathaid gu deanamh maille! (Rushing causes delays!)
Hello bruskieza,
Welcome to the Forum!
I modified your macro to take the path of the file(s) to attach. The files paths need to separated with a semi-colon ";".
Please Login or Register to view this content.
Thanks Leith,
So I added your rows into my code as per below but get an error on If File <> "" Then .Attachments.Add File, 1. Sorry, very new to this coding so apologize if I am being very doff here. Learning as I go along.
Sub SendEmail(what_address As String, subject_line As String, mail_body As String, Optional FilesToAttach As Variant)
' SendBulkEmail Macro
'
Dim File As Variant
Dim olApp As Object
Dim InBox As Object
Const olMailItem = 0
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olmail As Outlook.MailItem
Set olmail = olApp.CreateItem(olMailItem)
olmail.To = what_address
olmail.Subject = subject_line
olmail.Body = mail_body
olmail.Send
End Sub
Sub SendBulkEmail()
row_number = 1
Do
DoEvents
row_number = row_number + 1
Dim mail_body_message As String
Dim first_name As String
Dim Last_Row_IN_Column_A As String
mail_body_message = Sheet2.Range("A1")
first_name = Sheet1.Range("B" & row_number)
mail_body_message = Replace(mail_body_message, "replace_name_here", first_name)
If Not IsMissing(FilesToAttach) Then
For Each File In Split(FilesToAttach, "C:\test.txt")
If File <> "" Then .Attachments.Add File, 1
Next File
Call SendEmail(Sheet1.Range("A" & row_number), "Compliments of the season", mail_body_message)
Last_Row_IN_Column_A = Sheet1.Range("A999999").End(xlUp).Row
Loop Until row_number = Last_Row_IN_Column_A
MsgBox "Done like a bun!"
End Sub
Thanks Leith,
So I added your rows into my code as per below but get an error on If File <> "" Then .Attachments.Add File, 1. Sorry, very new to this coding so apologize if I am being very doff here. Learning as I go along.
Sub SendEmail(what_address As String, subject_line As String, mail_body As String, Optional FilesToAttach As Variant)
' SendBulkEmail Macro
'
Dim File As Variant
Dim olApp As Object
Dim InBox As Object
Const olMailItem = 0
Dim olApp As Outlook.Application
Set olApp = CreateObject("Outlook.Application")
Dim olmail As Outlook.MailItem
Set olmail = olApp.CreateItem(olMailItem)
olmail.To = what_address
olmail.Subject = subject_line
olmail.Body = mail_body
olmail.Send
End Sub
Sub SendBulkEmail()
row_number = 1
Do
DoEvents
row_number = row_number + 1
Dim mail_body_message As String
Dim first_name As String
Dim Last_Row_IN_Column_A As String
mail_body_message = Sheet2.Range("A1")
first_name = Sheet1.Range("B" & row_number)
mail_body_message = Replace(mail_body_message, "replace_name_here", first_name)
If Not IsMissing(FilesToAttach) Then
For Each File In Split(FilesToAttach, "C:\test.txt")
If File <> "" Then .Attachments.Add File, 1
Next File
Call SendEmail(Sheet1.Range("A" & row_number), "Compliments of the season", mail_body_message)
Last_Row_IN_Column_A = Sheet1.Range("A999999").End(xlUp).Row
Loop Until row_number = Last_Row_IN_Column_A
MsgBox "Done like a bun!"
End Sub
Hi guys,
Still stuck with this. Help!?
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
LinkBack URL
About LinkBacks
Register To Reply
Bookmarks