Email via Outlook from a Command Button

[Oshoryu]

Hi,

I want to add a button on form which the user can press and a blank email will be displayed for the user to add a couple of bits of info and then send it.

The Address and the subject are already filled out.

I've worked out how to open the mail from the button and populate the To: and Subject: fields with the code, but when it comes to the body I want to have say three Headers that the user can fill relevent info.

Here is my code so far:

Private Sub Command14_Click()
DoCmd.SendObject _
    , _
    , _
    , _
    "[EMAIL="emailaddress@company.com"]emailaddress@company.com[/EMAIL]", _
    , _
    , _
    "Email Subject Text", _
    "Company Name:", _
    True

End Sub

As you can see "Company Name" is in the main body of the email, but I want to add some more data like, Name: Position: etc but on different lines, it's amazing how much you take the Enter button for a new line for granted!

Also, if the email is sent, it works fine, if the user cancels the email, Access freaks a bit, I'm sure I'm missing a bit of code here too.

Many thanks

 

[jamot1]

Hello Oshoryu,

You'll need to tweak the following code a bit to get it where you want it, but this should be a solid starting point:

Private Sub Command14_Click()
    
Dim OutApp As Object
Dim OutMail As Object
    
    Set OutApp = CreateObject("Outlook.Application")
    OutApp.Session.Logon
    Set OutMail = OutApp.CreateItem(0)
    
    With OutMail
        .To = "Update with email addresses"
        .CC = ""
        .BCC = ""
        .Subject = ""
        .Body = "Company Name:" & vbNewLine & "Position:" & vbNewLine & "etc:" & vbNewLine 'continue doing this for additional data
        .Display   'use .Display or .Send
    End With
       
    Set OutMail = Nothing
    Set OutApp = Nothing


End Sub

Thanks,
Thomas

 

[Oshoryu]

Thank you very much, exactly what I was looking for, implemented and works a treat