Pop up Email message

N

Nikki

objOMSession.outbox.Messages.Add

This line will add a message to your Outbox and send it automatically. How
do you program the submit button to Popup the email it is putting into the
Outbox and allow the user to hit send himself?
 
E

Eric Legault [MVP - Outlook]

You'd need to do something like this:

Dim objItem As Outlook.MailItem
Dim objOutBox As Outlook.MAPIFolder

Set objOutBox =
Application.GetNamespace("MAPI").GetDefaultFolder(olFolderOutbox)
Set objItem = objOutBox.Items.Add
objItem.Display

Set objItem = Nothing
Set objOutBox = Nothing
 
Top