Open new Outlook message with email address and subject line complete but body blank
Posted on 2005-04-22
Basically I just need to know how to make the new Outlook message open. I know how to do the rest.
Here is the code I currently have:
Dim objOutlook As New Outlook.Application
Dim objEmail As Outlook.MailItem
Dim strLtrContent As String
strLtrContent = "Dear " & FIRST_NAME.Value & " " & _
LAST_NAME.Value & ":" & vbCrLf & vbCrLf & _
"Your SITE account password is: " & Password.Value & _
vbCrLf & vbCrLf & "Please wait 24 hours before attempting to change your password." & _
vbCrLf & vbCrLf & "If you have questions or issues with MySite, please contact:" & _
vbCrLf & "John Doe (mailto:John.Doe@mysite.com)" & vbCrLf & _
"Jack Doe(mailto:Jack.Doe@mysite.com) or" & vbCrLf & _
"Jane Doe (mailto:Jane.Doe@mysite.com)" & vbCrLf
Set objEmail = objOutlook.CreateItem(olMailItem)
objEmail.Subject = "Your Account"
objEmail.Body = strLtrContent
So instead of sending this email, I just want it to fill in the recipient info (objEmail.Recipients.Add Email.Value) and the subject line (objEmail.Subject = "Your Account" and then open the message so I can write a personalized email. How do I modify this code to achieve this?