What is the Outlook method to add an Access Unbound textbox (used for
a "message") in automation.

I have....
Dim Outl As Outlook.Application, MyMail As Outlook.MailItem, N$
On Error GoTo AAA1
N = "C:\BobDev\Sales" & Format(BegDaily, "mmddyy") & "_" &
Format(EndDaily, "mmddyy") & ".snp"
DoCmd.OutputTo acOutputReport, "DailySummary", _
"Snapshot Format", N, False
Set Outl = CreateObject("Outlook.Application")
Set MyMail = Outl.CreateItem(olMailItem)
MyMail.To = "
MyMail.Subject = "Sales Summary" & Format(BegDaily, "mm_dd_yy") & "_"
& Format(EndDaily, "mm_dd_yy")
MyMail.Attachments.Add N

'==Bob..also, I don't want to "Display" the mail and use "SendKeys"..what
command will send the Email w/o displaying it? Thank you.

| 'MyMail.Display
| SendKeys "^{ENTER}"
Set Outl = Nothing: Set MyMail = Nothing
AAA2:
Screen.MousePointer = 1: Exit Sub
AAA1:
Select Case Err
Case Else
MsgBox "Error Number " & Err.Number & " " & Err.Description: Resume
'AAA2 End Select
|
| TIA - B