Howto place data in the message text from outlook

[sciencer]

Hi

I'am wondering if I can place tekst in the Message tekst from an e-mail by using VBA

Greetings Raymond

 

[Bowers74]

The following procedure will send an Email from Excel:

Sub Send_Email()
' Be Sure to set a reference to MS Outlook before using this procedure.
' Go to Tools->References and select the Outlook library from the list and press OK.

Dim MailSubject As String, MailBody As String
Dim newOL As New Outlook.Application, newMail As MailItem

Set newOL = New Outlook.Application
Set newMail = newOL.CreateItem(olMailItem)
MailSubject = "Enter your Subject here."
MailBody = "Enter your Email text here."

With newMail
    .To = "noone@nowhere.com"
    .Subject = MailSubject
    .Body = MailBody ' This is your message text
        
    ' You can either Display the Email for editing or
    ' Send it directly.
    
    .Display ' This will display the Email for editing
    ' .Send ' This will send the Email directly

End With

' newOL.Quit 'Closes Outlook

Set newMail = Nothing
Set newOL = Nothing

End Sub

Please notice the .Body = MailBody line.

Peace!!

Mike

Didn't get the answers that you wanted? Take a look at FAQ219-2884