Automated email using col1 as subject and col2 as body

[Arn0]

Hello,

I'm looking for code that will create an email using data from column 1 as the subject, and the data from column 2 as the body. There are multiple rows, but it would create and send a single email from each row. It would iterate through all the rows and all of these emails would be sent to a single address.

I haven't worked with creating emails from excel data yet, but I have Excel for Mac 2011 and have simply been copy and pasting each cell into a gmail window. There are over 500 rows of data... Any help would be appreciated!

-Arn0

 

[daverunt]

Hi
Try the following.
Set the email address and uncomment out send.

A lot of info on mailing with Excel here:
http://www.rondebruin.nl/sendmail.htm

Sub Mail_rows()
Dim OutApp As Object
Dim OutMail As Object
Dim EmailSubject As String
Dim EmailSendTo As String
Dim MailBody As String
Dim cell As Range
 
     EmailSendTo = "fred@yahoo.com"
  
     Set rng = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
     For Each cell In rng
     Rw = cell.Row
     If cell.Value <> "" Then
 
        EmailSubject = cell.Value
        MailBody = Range("B" & Rw).Value
 
'Send Mail
        Set OutApp = CreateObject("Outlook.Application")
        Set OutMail = OutApp.CreateItem(o)
        With OutMail
            .Subject = EmailSubject
            .To = EmailSendTo
            .body = MailBody
            .Display
            '.send - uncomment to send
        End With
 
        Set OutMail = Nothing
        Set OutApp = Nothing
        MailBody = ""
        EmailSubject = ""
End If
Next
End Sub

 

[imaquila]

Would it be possible to alter this code to open Thunderbird instead of Outlook?

Set OutApp = CreateObject("Thunderbird.Application")</pre>

 

[andrewkard]

Hello
ChDir "C:\Program Files\Thunderbird"
Call Shell("C:\Program Files\Thunderbird\Thunderbird.exe", 1)