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

To set the text for the message body, yse the MailItem.Body or .HTMLBody property. If you don't want to display the message, call the MailItem.Send method, but be aware of the security issue involved - see http://outlookcode.com/article.aspx?ID=52

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Bob Barnes" wrote in message ...
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

Sue - It works, but takes a LLOONNGG time vto send from Outlook.

The "warning Message" about someone might be trying to get Outlook
maddresses appears. Is that "Normal" and is there a way to Block that? I
work w/ a network guy who should be able to help w/ that..maybe.

Thank you - Bob

"Sue Mosher [MVP-Outlook]" wrote:

To set the text for the message body, yse the MailItem.Body or .HTMLBody property. If you don't want to display the message, call the MailItem.Send method, but be aware of the security issue involved - see http://outlookcode.com/article.aspx?ID=52

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Bob Barnes" wrote in message ...
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

See the last part of my earlier response.

--
Sue Mosher, Outlook MVP
Author of Microsoft Outlook 2007 Programming:
Jumpstart for Power Users and Administrators
http://www.outlookcode.com/article.aspx?id=54


"Bob Barnes" wrote in message ...
Sue - It works, but takes a LLOONNGG time vto send from Outlook.

The "warning Message" about someone might be trying to get Outlook
maddresses appears. Is that "Normal" and is there a way to Block that? I
work w/ a network guy who should be able to help w/ that..maybe.

Thank you - Bob

"Sue Mosher [MVP-Outlook]" wrote:

To set the text for the message body, yse the MailItem.Body or ..HTMLBody property. If you don't want to display the message, call the MailItem.Send method, but be aware of the security issue involved - see http://outlookcode.com/article.aspx?ID=52

"Bob Barnes" wrote in message ...
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