Hi,

I'm using the below command to send an e-mail,I need the message to open
before sending,so that i may put the To and CC fields.

The code is

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


DoCmd.SelectObject acQuery, "Tier2 Current Month Report", True
Me.Requery
DoCmd.TransferSpreadsheet acExport, 8, "Tier2 Current Month Report",
"O:\XBOX\XBOX-Tier2\Customer Support\Source\Reports\Current Month Report.xls"


'Application.SetOption "Show Hidden Objects", False
'DoCmd.RunCommand acCmdWindowHide
' DoCmd.SelectObject acForm, "Main page", False
' DoCmd.Maximize

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

With MailOutLook
.BodyFormat = olFormatHTML
.to = ""
.CC = ""
.Subject = "Current Month Report"
.HTMLBody = "<P>Dear All<P>" & _
"<P>Kindly find attached Tier2 Current Month
Report</P>" & _
"<P>Best Regards<P>" & _
"Customer Support Tool</P>"



If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
.Attachments.add (Me.Mail_Attachment_Path)

End If
Application.Echo False
DoCmd.SelectObject acTable, "", True
DoCmd.RunCommand acCmdWindowHide
Application.Echo True

'.DeleteAfterSubmit = True 'This would let Outlook send th
note without storing it in your sent bin
.Send
End With
'MsgBox MailOutLook.Body
Exit Sub



email_error:
MsgBox "An error was encountered." & vbCrLf & "The error message
is: " & Err.Description
Resume Error_out
Error_out:

Add a line immediately before the line:

..Send

so that it looks like:

..Display
..Send

--
Arvin Meyer, MCP, MVP
http://www.datastrat.com
http://www.mvps.org/access
http://www.accessmvp.com


"Pietro" <Pietro@discussions.microsoft.com> wrote in message
news:85D117A5-22E9-4E02-9035-1B4F8E8DD66B@microsoft.com...
> Hi,
>
> I'm using the below command to send an e-mail,I need the message to open
> before sending,so that i may put the To and CC fields.
>
> The code is
>
> Dim mess_body As String
> Dim appOutLook As Outlook.Application
> Dim MailOutLook As Outlook.MailItem
> Dim a As String
> Set appOutLook = CreateObject("Outlook.Application")
> Set MailOutLook = appOutLook.CreateItem(olMailItem)
>
>
> DoCmd.SelectObject acQuery, "Tier2 Current Month Report", True
> Me.Requery
> DoCmd.TransferSpreadsheet acExport, 8, "Tier2 Current Month Report",
> "O:\XBOX\XBOX-Tier2\Customer Support\Source\Reports\Current Month
> Report.xls"
>
>
> 'Application.SetOption "Show Hidden Objects", False
> 'DoCmd.RunCommand acCmdWindowHide
> ' DoCmd.SelectObject acForm, "Main page", False
> ' DoCmd.Maximize
>
> Set appOutLook = CreateObject("Outlook.Application")
> Set MailOutLook = appOutLook.CreateItem(olMailItem)
>
> With MailOutLook
> .BodyFormat = olFormatHTML
> .to = ""
> .CC = ""
> .Subject = "Current Month Report"
> .HTMLBody = "<P>Dear All<P>" & _
> "<P>Kindly find attached Tier2 Current Month
> Report</P>" & _
> "<P>Best Regards<P>" & _
> "Customer Support Tool</P>"
>
>
>
> If Left(Me.Mail_Attachment_Path, 1) <> "<" Then
> .Attachments.add (Me.Mail_Attachment_Path)
>
> End If
> Application.Echo False
> DoCmd.SelectObject acTable, "", True
> DoCmd.RunCommand acCmdWindowHide
> Application.Echo True
>
> '.DeleteAfterSubmit = True 'This would let Outlook send th
> note without storing it in your sent bin
> .Send
> End With
> 'MsgBox MailOutLook.Body
> Exit Sub
>
>
>
> email_error:
> MsgBox "An error was encountered." & vbCrLf & "The error
> message
> is: " & Err.Description
> Resume Error_out
> Error_out: