Emailing from a list (with attachment)

[jaypatel]

i have a list of email addresses (approx 2000) in column a. What i need to do is send them a word document called letter.doc found in the directory c:\my documents to all the email addresses. Is there an easy way to do this. Any help will be appreciated. regards Jay

 

[nirvana_]

Here is a vba script you need to use. All email addresses should be in column A. Attachment should also exist.

Test it first before sending.

Sub SendToAll()
Dim i As Integer
i = 1
Set myOlApp = CreateObject("Outlook.Application")
'Place all e-mail addresses in column A.
Do While Worksheets(1).Cells(i, 1) <> ""
    Set MyItem = myOlApp.CreateItem(olMailItem)
    With MyItem
            .To = Worksheets(1).Cells(i, 1)
            .Attachments.Add "C:\My Documents\letter.doc"
            .Subject = "My Subject"
            .Display
            .Send
    End With
    i = i + 1
Loop
End Sub

 

[spcalan]

Here is a vba script you need to use. All email addresses should be in column A. Attachment should also exist.

Test it first before sending.

Sub SendToAll()
Dim i As Integer
i = 1
Set myOlApp = CreateObject("Outlook.Application")
'Place all e-mail addresses in column A.
Do While Worksheets(1).Cells(i, 1) <> ""
    Set MyItem = myOlApp.CreateItem(olMailItem)
    With MyItem
            .To = Worksheets(1).Cells(i, 1)
            .Attachments.Add "C:\My Documents\letter.doc"
            .Subject = "My Subject"
            .Display
            .Send
    End With
    i = i + 1
Loop
End Sub

I like the "simple" vba code to send an attachment via Outlook, but Instead of sending thesame file 10 times ( for 10 people on the list ).
How would the vba code change to send 1 email ( that contained 10 email addresses ?)