Thanks for all your help up to this point. I'm trying to send an email with just a button click, I followed the directions in the video to send with Outlook. When I click the button, I get the Outlook send email tab, but the send to is blank. I have to enter it manually, and the first name does not appear. What am I doing wrong?
This is the code that I have DetailsPrivate Sub SendEmailBtn_Click() Dim Msg As String
Msg = "Attention " & FirstName & ",
"
Dim O As Outlook.Application Dim M As Outlook.MailItem
Set O = New Outlook.Application Set M = O.CreateItem(olMailItem)
With M .BodyFormat = olFormatHTML .HTMLBody = Msg .To = Email .Subject = " Please Review and Reply if necessary" .Display End With
Set O = Nothing Set M = Nothing
End Sub
Thank you
Sorry, only students may add comments.
Click here for more
information on how you can set up an account.
If you are a Visitor, go ahead and post your reply as a
new comment, and we'll move it here for you
once it's approved. Be sure to use the same name and email address.
This thread is now CLOSED. If you wish to comment, start a NEW discussion in
Visitor Forum.