Sending Email Manually through word

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi

Is it possible to display the email and allow the user to press the send button before it is sent (i.e. the .send live) when using the following code in Word? This way the user can check the email before it is sent.

Cheers,

Simon.

Sub SendDocumentAsAttachment()

Dim bStarted As Boolean
Dim oOutlookApp As Outlook.Application
Dim oItem As Outlook.MailItem

On Error Resume Next

If Len(ActiveDocument.Path) = 0 Then
MsgBox "Document needs to be saved first"
Exit Sub
End If

Set oOutlookApp = GetObject(, "Outlook.Application")
If Err <> 0 Then
Set oOutlookApp = CreateObject("Outlook.Application")
bStarted = True
End If

Set oItem = oOutlookApp.CreateItem(olMailItem)

With oItem
.To = "(e-mail address removed)"
.Subject = "New subject"
'Add the document as an attachment, you can use the .displayname property
'to set the description that's used in the message
.Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _
DisplayName:="Document as attachment"
.Send
End With

If bStarted Then
oOutlookApp.Quit
End If

Set oItem = Nothing
Set oOutlookApp = Nothing

End Sub
 
Replace .Send with .Display.
--
Sue Mosher, Outlook MVP
Author of
Microsoft Outlook Programming - Jumpstart for
Administrators, Power Users, and Developers



Simon Tonkin said:
Hi

Is it possible to display the email and allow the user to press the send
Click to expand...
button before it is sent (i.e. the .send live) when using the following code
in Word? This way the user can check the email before it is sent.
 
Back
Top