Sending Email Macro

wasikai · June 5th, 2008, 05:08 AM

Currently at work, I need to send a .jpg file that has to be displayed on the email body and this has got to be sent to 2000 emails addresses which are saved in an excel file.

Is there a macro out there make life easier?

At the moment i only have got this to work on:

Sub sendemail()
Dim olApp As Outlook.Application, olMail As Outlook.MailItem
Dim Rng As Range
    Set olApp = New Outlook.Application
    Set olMail = olApp.CreateItem(olMailItem)
    olMail.To = ActiveCell.Value
    olMail.Subject = "Job Positions Available in the month of June"
    olMail.Body = "Insert Body"
    olMail.Display
End Sub

Shasur · June 5th, 2008, 08:02 PM

Hi

Please have a look at the following link

http://vbadud.blogspot.com/2007/04/v...-vba-mail.html

Cheers
Shasur

http://www.dotnetdud.blogspot.com

VBA Tips & Tricks (http://www.vbadud.blogspot.com)

wasikai · June 5th, 2008, 11:40 PM

Managed to get it done but i need to insert a jpg file in the body of the email and display it...

is there a way to do it?

at the same time is it possible to forward an existing email and use these codes?

Quote:

quote:
Sub sendemail()

Dim olApp As Outlook.Application, olMail As Outlook.MailItem
Dim myRow As Range

For Each myRow In Range("A1:A2") 'Change the Values to the last number of the row

    Set olApp = New Outlook.Application

    Set olMail = olApp.CreateItem(olMailItem)

    olMail.To = myRow.Value

    olMail.Subject = "Job Positions Available in the month of June" 'place your subject here

    olMail.HTMLBody = "" 'place your message here

    olMail.Attachments.Add (".jpg")

    olMail.Display

Next myRow

End Sub

wasikai · June 18th, 2008, 07:58 AM

can anyone help me?

JP · June 27th, 2008, 10:49 AM

Did you read this?

http://www.outlookcode.com/d/code/htmlimg.htm