Email from Access 2010 (Simple!)

[floyd]

I am looking to associate Access 2010 DB fields to Outlook 2010 email WITH FORMATTING!!!! (SIMPLE! and my code below)

The Access 2010 Table is named: tblDatEmail
The field inside tblDatEmail which I would like to link to the Outlook "Subject field" is a text field in the DB named "EmailName"
The field inside tblDatEmail which I would like to link to the Outlook "message field" is a Memo field named "MainMessageField"

I access this data from a form named: "7_qryEmailExpanded"
There is a button named "SendEmail" in the form which I would like to use to open Outlook and to populate those two areas.

The user will input their own (To CC BCC)fields.

I have THIS:

Private Sub SendEmail_Click()
DoCmd.SendObject , , acFormatHTML, , , , Me.EmailSubjectField, Me.EmailMessageField, True
End Sub

How can I get the formatting to come through correctly?

It is coming through like this...

<div>This is a test of the body of the email</div>



<div>&nbsp;</div>

<div><strong>This is a test of the bold</strong></div>

<div>&nbsp;</div>

<div><em>This is a test of the italic</em></div>

<div>&nbsp;</div>

<div><font color=red><strong>This is a test of colors BOLD</strong></font></div>

<div>&nbsp;</div>

<ul>
<li><font color=red><strong>Test of bullets</strong></font>&nbsp;</li>
</ul>

<div>&nbsp;</div>

<div><font color=red><strong>Last but not least… an email.</strong></font></div>

<div>&nbsp;</div>

[June7]

Don't think you can use SendObject for that.

If you want to format messsage body with HTML, use VBA that opens an Outlook object and manipulates properties of the object. Review: http://forums.aspfree.com/microsoft-...ro-447084.html

[floyd]

That's what I was afraid of... so let me ask you this.

One of my fields is a memo field.
Of course you can add basic formatting to that field (Bold / Italic / Underline / Colors).
I am having troubles passing that info to Outlook 2010.

I have tried different codes and have been COMPLETELY stymied!!!

What are my options?

1. Find a working Access 2010 vba code (this is proving difficult)
2. Somehow create the email in WORD and have Access 2010 ACCESS that file and somehow pass that info to Outlook. (this is proving IMPOSSIBLE!!!!)

Am I missing something?

[June7]

I've never used RTF fields. I thought it was just HTML tags applied through a toolbar interface. In which case I think the code I referenced should be able to pass the formatted text from the field. What different codes have you tried - the sample I referenced?

[floyd]

Here is the code I am using NOW... BUT... when I hit the button... my PRINTER PRINTS!!!!

Private Sub Command29_Click()
On Error GoTo ErrorHandler
'open Outlook, attach zip folder or file, send e-mail

Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)

With MailOutLook
    .BodyFormat = olFormatRichText
    '.To = ""
    ''.cc = ""
    ''.bcc = ""
    .Subject = Me.EmailSubjectField
    .HTMLBody = Me.EmailMessageField
    '.Attachments.Add ("path\filename")
    ''.DeleteAfterSubmit = True 'This would let Outlook send the note without storing it in your sent bin
End With

ExitHandler:   'clean up as necessary and exit
  Set rs = Nothing  'These two lines are just an example
  Set db = Nothing  'your code may not include them
  Exit Sub
ErrorHandler:
  Select Case Err  'specific Case statements for errors we can anticipate, the "Else" catches any others
    Case 2501       'Action OpenReport was cancelled.
      MsgBox "Email closed"
      DoCmd.Hourglass False
      Resume ExitHandler
    Case Else
      MsgBox Err.Description
      DoCmd.Hourglass False
      Resume ExitHandler
  End Select
  
End Sub

[June7]

Need to uncomment .To and specify an email address (send to yourself for testing).

Need .Send line.

Run Debug/Compile.

Step debug, follow code as it executes, one line at a time. Refer to link at bottom of my post for debugging guidelines.

[floyd]

What if I don't actually WANT it to send... just to POPULATE the Subject and Body.

I want to put my own recipients in the email AFTER Outlook is open.
This also allows me to check the email PRIOR to sending.

Is this possible?

[June7]

Use .Display instead.

[floyd]

I GOT IT!!!!!
I AM SOOOO excited!!!!

Now is there a way to make sure that my signature line goes into the bottom of the email?

Private Sub SecondEmail_Click()
'open Outlook, attach zip folder or file, send e-mail
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
    .BodyFormat = olFormatRichText
    .To = "email address"
    ''.cc = ""
    ''.bcc = ""
    .Subject = Me.EmailSubjectField
    .HTMLBody = Me.EmailMessageField
    '.Attachments.Add ("path\filename")
    ''.DeleteAfterSubmit = True 'This would let Outlook send the note without storing it in your sent bin
    .Display
    '.Send
End With
  
End Sub

[June7]

Just more text concatenated to the end of the message body.

Options:

1. Hard code the signature text in the procedure.

2. Outlook saved signature template is actually an htm file saved somewhere by Outlook. Can read that file
http://answers.microsoft.com/en-us/o...f-d1d70b3e0c71