R
Rich Locus
Forum Members:
I can send an email from Excel with attachments through Outlook, but I'm
trying to PREVIEW the email, change it, and then click "SEND".
The .Display option only displays
The .Send option only sends without the chance of a review
Is there a way to preview, approve, then send?
Here's the SUB I'm using:
Sub SendWithAtt(strWorkBookPath As String)
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Worksheets("Master").Cells(104, 1).Value
.CC = ""
.BCC = ""
.Subject = "Charge Back On Products Received"
.Body = "SLW Credit Dept: Put Explanation Here"
.Attachments.Add strWorkBookPath
.Send (I can change to .Display, But It Won't Allow a Send After
Review)
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
I can send an email from Excel with attachments through Outlook, but I'm
trying to PREVIEW the email, change it, and then click "SEND".
The .Display option only displays
The .Send option only sends without the chance of a review
Is there a way to preview, approve, then send?
Here's the SUB I'm using:
Sub SendWithAtt(strWorkBookPath As String)
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
OutApp.Session.Logon
Set OutMail = OutApp.CreateItem(0)
On Error Resume Next
With OutMail
.To = Worksheets("Master").Cells(104, 1).Value
.CC = ""
.BCC = ""
.Subject = "Charge Back On Products Received"
.Body = "SLW Credit Dept: Put Explanation Here"
.Attachments.Add strWorkBookPath
.Send (I can change to .Display, But It Won't Allow a Send After
Review)
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub