E
Eef Houniet
Hello,
I need to send an Access-report as Outlook attachment in Snapshot-format to
an E-mail-address. This address exists in a field on a form in Access.
Procedure A works to open Outlook (2003) with the right E-mail-address, but
I don't know how to add the report as attachment.
Procedure B works to open Outlook (2003) with the report as attachment, but
then I don't know how to add the E-mail-address.
Help will be appreciated.
Eef Houniet
Procedure A
=========
Forms!frm01_Klanten!EmailHyperlink = ETekst & "#" & ECompleet
PubFunc_Save
Dim Adres As String, Subadres As String
Adres = HyperlinkPart(Forms!frm01_Klanten!EmailHyperlink, acAddress)
Subadres = HyperlinkPart(Forms!frm01_Klanten!EmailHyperlink,
acSubAddress)
On Error Resume Next
FollowHyperlink Adres, Subadres
Procedure B
=========
PubFunc_OpenRpt ("rpt01b_BerichtAlarmOpvolging")
DoCmd.RunCommand acCmdSend
I need to send an Access-report as Outlook attachment in Snapshot-format to
an E-mail-address. This address exists in a field on a form in Access.
Procedure A works to open Outlook (2003) with the right E-mail-address, but
I don't know how to add the report as attachment.
Procedure B works to open Outlook (2003) with the report as attachment, but
then I don't know how to add the E-mail-address.
Help will be appreciated.
Eef Houniet
Procedure A
=========
Forms!frm01_Klanten!EmailHyperlink = ETekst & "#" & ECompleet
PubFunc_Save
Dim Adres As String, Subadres As String
Adres = HyperlinkPart(Forms!frm01_Klanten!EmailHyperlink, acAddress)
Subadres = HyperlinkPart(Forms!frm01_Klanten!EmailHyperlink,
acSubAddress)
On Error Resume Next
FollowHyperlink Adres, Subadres
Procedure B
=========
PubFunc_OpenRpt ("rpt01b_BerichtAlarmOpvolging")
DoCmd.RunCommand acCmdSend