Tonysdilemma
New Member
- Joined
- Aug 2, 2020
- Messages
- 30
- Office Version
- 2016
- Platform
- Windows
Hi have following module that uses Outlook
Sub Send_Pic()
Dim OutApp As Object
Dim OutMail As Object
Dim StrBody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
StrBody = "<BODY style = font-size:14pts, font-family:Arial>" & _
"Dear Resident, <p> There is a parcel ready for collection<br>" & _
"It can be picked up from concierge<br>" & _
"<br>Kind Regards<br>"
On Error Resume Next
With OutMail
.to = Range("H3").Value
.CC = ""
.BCC = ""
.Subject = "Parcel ready for collection " & Format(Date, "dd/mm/yyyy")
.Display
.HTMLBody = StrBody & _
"<img src='C:\Users\*******\Desktop\bla\Hyde Logo.jpg' height='10%'> " & _
.HTMLBody
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
What I would like to happen is before email is sent, that it could POP UP so I can edit email if need be. Currently when I run the module, Outlook flickers on the taskbar to let me know that an email is ready to be sent.
Any suggestions on how the email can pop up before it is sent?
Sub Send_Pic()
Dim OutApp As Object
Dim OutMail As Object
Dim StrBody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
StrBody = "<BODY style = font-size:14pts, font-family:Arial>" & _
"Dear Resident, <p> There is a parcel ready for collection<br>" & _
"It can be picked up from concierge<br>" & _
"<br>Kind Regards<br>"
On Error Resume Next
With OutMail
.to = Range("H3").Value
.CC = ""
.BCC = ""
.Subject = "Parcel ready for collection " & Format(Date, "dd/mm/yyyy")
.Display
.HTMLBody = StrBody & _
"<img src='C:\Users\*******\Desktop\bla\Hyde Logo.jpg' height='10%'> " & _
.HTMLBody
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub
What I would like to happen is before email is sent, that it could POP UP so I can edit email if need be. Currently when I run the module, Outlook flickers on the taskbar to let me know that an email is ready to be sent.
Any suggestions on how the email can pop up before it is sent?