Command Button to Send Outlook Email

[AJM229]

I should probably revise my prior post... something does occur when I push my command button. Outlook seems to spool up (the icon in the lower right appears and when I hover over it it says that another program is using Outlook), but no new email window appears with the To: and Subject: fields filled in like I want. I think I'm pretty close here, but I'm just not sure where my issue is.

[ItsMe]

Maybe adding a .Body property and a .Send method will do the trick. Also, if Outlook is not running, I do not believe the message will be sent. The exception to that is if you adjust settings within Outlook to interact with your app.

Here is a snippit using Late binding and HTML body format.

Dim appOutLook As Object
Dim MailOutLook As Object
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(0)
With MailOutLook
    .BodyFormat = 2
    .To = "MyEmail@Domain.com"
    ''.cc = ""
    ''.bcc = ""
    .Subject = "Subject Line"
    .HTMLBody = "This is the body of the Email" ' & Me.ControlName.Value
    .DeleteAfterSubmit = False 'This would let Outlook send the note without storing it in your sent bin
    .ReadReceiptRequested = False 'Request a read receipt from the recipient
    .Send
    
End With

I think default body format is text. So you should be able to do something like this too

With MailOutLook

    .To = "MyEmail@Domain.com"
    .Subject = "Subject Line"
    .Body = "This is the body of the Email" 
    .Send
    
End With

[AJM229]

I decided to try to go about this a different way. The whole reason I tried doing this was because I couldn't get the email address from the table to display as clickable in the field on my form. When someone selects a rep name from the combo box, it populates the "Email Address" field of my form automatically. However, because the email address is a hyperlink in the table, it displays as "<email address>#mailto:<email address>#"

Any way to just get the thing to show up as a clickable hyperlink in the form?

[ItsMe]

I think the fact that your email address is a hyperlink in the table is why you are having so much trouble. I always store the literal text of the Email address in my tables. If you want to try creating a hyperlink that uses the machines default email program......

The HTML looks like this
<a href="mailto:YourName@YourSite.com">YourName@YourS ite.com</a>

In a click event of a control that has a Hyperlink property, the VBA would probably look like this....

Me.ControlName.HyperlinkAddress  = "mailto:YourName@YourSite.com"

[burrina]

Here is a typical example:

Dim strToWhom As String
Dim strMsgBody As String
Dim strSubject As String
Dim strBcc As String
Dim strrptName As String
Dim strextension As String

strToWhom = Me.EmailTo 'Your Email To Field Name.
strSubject = Me.EmailSubject 'Your Email Subject Field Name.
strBcc = Me.cbobcc 'Your Bcc Field Name.
strMsgBody = Me.EmailMessage 'Your Email Body Field Name.

DoCmd.SendObject , , , strToWhom, , strBcc, strSubject, strMsgBody, True

HTH