Send E-Mail Message

[nehpets12]

A simple one for you

All I want To do Is Send An E-Mail Message To Someone Based On A Value Of A Cell something like ....

If Range("A1").Value = "Merlin" Then
.SendMail Recipients:=Array("Email Address"),subject:= "New Message",body:="New Spec"

There is a lot of help if I want to send workbook or selection or a sheet but I cant find any help if I just want to send a message.

Thank you in advance

 

[Jon von der Heyden]

Hi, you can adapt this for your needs.
Cheers,
Jon

Sub Mailer()
  
Dim objol As New Outlook.Application
Dim objmail As MailItem
Dim Pathname

Pathname = ActiveWorkbook.FullName

Set objol = New Outlook.Application
Set objmail = objol.CreateItem(olMailItem)
    
    With objmail
        .To = "somebody@yahoo.com"
        .Subject = "Simulation completed!"
        .Body = "The following simulation has completed:" & _
            vbCrLf & Pathname
        .NoAging = True
        .Display
    End With
    Set objmail = Nothing
    Set objol = Nothing
    
    Application.Wait (Now + TimeValue("0:00:04"))
    Application.SendKeys "%s"
    Application.Wait (Now + TimeValue("0:00:04"))
    
End Sub

 

[nehpets12]

Thanks

Was Just What I Wanted

Cheers

 

[nehpets12]

Help with sending e-mail

Some operators are using office 2000 and some are using office 2003

is there anyway that VBA code can turn on the referances in vba project depending if 2000 or 2003

office 2000 uses Microsoft Outlook 9.0 Object Libary and

office 2003 uses Microsoft Outlook 11.0 Object Libary

 

[nehpets12]

Found the answer look at

http://www.dicks-clicks.com/excel/olBinding.htm