How to send a mail to multiple recipients from Microsoft Excel sheet?
I have an excel sheet . This excel sheet has data for many receipnts. every row has an email address(lotus/outlook) and then the next four cell in the saem row has the data for the same recipant. I want a macro to be created so that when i run this marco a new mail is drafted for each receipant using the email address written in the first cell of each row and the body of the mail should contain the data entered in the next four cells of the row containing the email address in my excel sheet. can anybody help??
Software/Hardware used:
Software/Hardware used:
ASKED:
February 22, 2009 4:40 PM
UPDATED:
February 23, 2009 4:10 PM
Answer Wiki:
<pre>Sub sendemail()
Dim ol As New Outlook.Application
Dim OLF As Outlook.MAPIFolder
Dim ml As Outlook.MailItem
Set ml = ol.CreateItem(olMailItem)
i = 1
Do While Sheet1.Cells(i, 1) <> ""
ml.Recipients.Add Sheet1.Cells(i, 1)
ml.Body = Sheet1.Cells(i, 2) & " " & Sheet1.Cells(i, 3) & " " & Sheet1.Cells(i, 4)
ml.Send
i = i + 1
Loop
End Sub
</pre>
Use the above code to send email
Sarfaraz Ahmed
<a href="http://findsarfaraz.blogspot.com">MS Excel help</a>
To see all answers submitted to the Answer Wiki: View Answer History.
RSS - Discussions Help
Discuss This Question:
_ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _ _
