Need a little more info on what your asking."Rocky"
- Show quoted text -
I use the following code to send an e-mail, which fetches the message
from the Form "a_tEXT".
Function E_Mail_EMAIL()
On Error GoTo E_Mail_EMAIL_Err
With CodeContextObject
DoCmd.OpenForm "a_tEXT", acNormal, "", "", , acNormal
DoCmd.RunCommand acCmdCopy
DoCmd.Close acForm, "a_tEXT"
DoCmd.SendObject , "", "HTML(*.html)", .[E-Mail], "", "",
"WINE FARMERS & FRUIT GROWERS EXHIBITION 2007", "", True, ""
End With
E_Mail_EMAIL_Exit:
Exit Function
E_Mail_EMAIL_Err:
MsgBox Error$
Resume E_Mail_EMAIL_Exit
End Function
What I want to do is reference the e-mail as an attachment in the new
Attachment Field, which will allow me to open the sent e-mail from
within Access.
Rocky