Скачать или смотреть Send Two Attachments With An Email From Excel

Send email from a list in Excel with two attachments. Send two attachments with an email from Excel. Two file names on a list on an Excel Worksheet. Send email from a list with two different attachments. Send a list of files to a list of email address in Excel.
Check out my online training www.easyexcelanswers.com/courses.html
For more help visit my website www.easyexcelanswers.com or email me at [email protected].

Contact me regarding customizing this template for your needs.

Click for online Excel Consulting http://www.calendly.com/easyexcelanswers

I am able to provide online help on your computer at a reasonable rate.

https://www.amazon.com/shop/barbhende...

I use a Blue condenser Microphone to record my videos, here is the link
https://amzn.to/37gyyGa

Check out Crowdcast for creating your webinars
https://app.linkmink.com/a/crowdcast/83


I use Tube Buddy to help promote my videos
Check them out
https://www.Tubebuddy.com/easyexcelan...

Follow me on Facebook
  / easyexcel.answers  

TWEET THIS VIDEO    • Send Two Attachments With An Email From Excel  

Follow me on twitter
easyexcelanswers

IG @barbhendersonconsulting

You can help and generate a translation to you own language
http://www.youtube.com/timedtext_cs_p...

*this description may contain affiliate links. When you click them, I may receive a small commission at no extra cost to you. I only recommend products and services that I've used or have experience with.
code
Sub Send_email_fromexcel()
Dim edress As String
Dim subj As String
Dim message As String
Dim filename As String
Dim filename2 As String
Dim outlookapp As Object
Dim outlookmailitem As Object
Dim myAttachments As Object
Dim path As String
Dim lastrow As Integer
Dim attachment As String
Dim x As Integer


x = 2



Do While Sheet1.Cells(x, 1) (does not equal) ""




Set outlookapp = CreateObject("Outlook.Application")
Set outlookmailitem = outlookapp.createitem(0)
Set myAttachments = outlookmailitem.Attachments
edress = Sheet1.Cells(x, 1)
path = Sheet1.Cells(x, 2)
subj = Sheet1.Cells(x, 6)
filename = Sheet1.Cells(x, 3)
'attachment = path + filename
Set myAttachments = outlookmailitem.Attachments

edress = Sheet1.Cells(x, 1)
path = Sheet1.Cells(x, 4)
filename = Sheet1.Cells(x, 3)
filename1 = Sheet1.Cells(x, 5)
attachment = path + filename
attachment = path + filename1
outlookmailitem.To = edress
outlookmailitem.cc = ""
outlookmailitem.bcc = ""
outlookmailitem.Subject = subj
outlookmailitem.body = "Please find your compensation summary statement attached." & vbCrLf & "Best Regards"
myAttachments.Add (attachment)
myAttachments.Add (attachment)
outlookmailitem.display
'outlookmailitem.send
lastrow = lastrow + 1
edress = ""

x = x + 1
Loop

Set outlookapp = Nothing
Set outlookmailitem = Nothing



End Sub