asked on Why is email being sent even though I have .Display turned on
I have the following code in place for an onclick event of a command button. The mail event is working fine EXCEPT it is not allowing me to preview the email before it gets sent. Can someone figure out why?
Dim oOutlook As Object
Dim appOutLook As Outlook.Application
Dim MailOutLook As Outlook.MailItem
Dim strPath As String
Dim strFilter As String
Dim strFile As String
Dim strAttachmentFolderDataPath As String
On Error Resume Next
Set oOutlook = GetObject(, "Outlook.Application")
On Error GoTo 0
If oOutlook Is Nothing Then
MsgBox "Outlook is not open, open Outlook and try again"
Else
'Email routine...
strPath = DLookup("AttachmentDirectory", "LOCALtblDatabaseSetup") & "\" & Me.txtContractN
strFilter = "*.pdf"
strFile = Dir(strPath & strFilter)
Set appOutLook = CreateObject("Outlook.Application")
Set MailOutLook = appOutLook.CreateItem(olMailItem)
With MailOutLook
.BodyFormat = olFormatRichText
.To = "somebody@somewhere.com"
''.cc = ""
''.bcc = ""
.Subject = "Report Attached"
.HTMLBody = "Report Attached"
.Attachments.Add strPath & "\Report.PDF"
.Display
.Send
End With
'End of email routine
End If
Microsoft Access
Last Comment
SteveL13
Hi,
If you add, say, a MsgBox after the .display, before the .send then you can give the user the option. Something like:
Alan.
If you add, say, a MsgBox after the .display, before the .send then you can give the user the option. Something like:
If MsgBox("Okay to Send?),vbYesNo) = vbYes then
MailOutlook.Send
End If
Alan.
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
ASKER
Thank you. Pretty obvious and I missed it.
The display method is not a blocking instruction, so the window close as soon as you send it.