Body of an Email using DoCmd.SendObject 1

[danvzla]

Hi.

I need to write in the body of an email.

This is the code I'm using:

Function SendEmail()
Dim email, Subject, Body As String
Dim APREJ As Variant


STATUS = Me.FrameToggle.Value

email = Me.Market_Label & "Distribution List"
Subject = "Datafill for sites:" & "Name of sites " & UpTN
Body = "STATUS: " & STATUS & UpTN & "Checked by " & Me.ComboRNWE & " . Thanks"

DoCmd.SendObject acSendForm, , acFormatTXT, email, , , Subject, Body, True

End Function

How can I do to show the information on the body with a multiline text:


STATUS:
TRACKING No:
CHECKED BY:
PHONE:

And no: STATUS: TRACKING No: CHECKED BY: PHONE:

Thanks

Daniel

 

[danvlas]

Body = "STATUS: " & STATUS & vbCrLf & UpTN & vbCrLf & "Checked by " & Me.ComboRNWE & vbCrLf & " . Thanks"


HTH


Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html

 

[danvzla]

Great... Thanks!!!!

Daniel

 

[danvlas]

No prob...

Have you noticed there's just one letter difference between our nicks?




Daniel Vlas
Systems Consultant

http://www.geocities.com/danvlas/AutoMail.html