Email Document via Commandbutton

aqhibjaveed · #1 03-25-2013, 10:38 PM

Hi below is my code basically if user click the command button he will get a msg box with yes no if the response is yes i want the below code to run (Save the document and send an email) please have a look

Code:

Private Sub CommandButton1_Click()
yourMsg = MsgBox("Do you want to send the report", vbInformation + vbYesNo, "SUBMIT REPORT")
If response = vbYes Then
  ActiveDocument.Save
  Dim OutApp As Object
  Dim OutMail As Object
 
  Set OutApp = CreateObject("Outlook.Application")
  Set OutMail = OutApp.CreateItem(0)
 
  On Error Resume Next
  With OutMail
    .To = "abc@gmail.com"
    .CC = ""
    .BCC = ""
    .Subject = "Sales Report"
    .Body = "Hi All!"
    .Attachments.Add ("C:\Users\aqhibj\Desktop\Formats\Sales report__V0.2.docx")
    .Display
  End With
  On Error GoTo 0
 
  Set OutMail = Nothing
  Set OutApp = Nothing
End If
End Sub

When i run the above code i am getting msg box when i click yes its not displaying mail or saving my active document. please help

macropod · #2 03-25-2013, 11:22 PM

Hi aqhibjaveed,

Please don't hijack old threads, especially when they're not dealing with the same issue - start a new one. I have split your post off to a new thread.

Also, when posting code, please use the code tags. They're on the 'Go Advanced' tab.

As for the code you posted, I note that you haven't defined your variables and that, you refer to the message box as 'yourMsg' but then you don't test it! Instead, you test 'response'. That's just poor coding. Had you defined either of these variables and were you requiring variable declarations via 'Option Explicit', the error would have been trapped as soon as you tried to run the code.

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Best office document and email search tool	borabora1001	Office	0	02-21-2013 11:35 PM
Macro to send document in email	AnneN	Word VBA	1	02-05-2013 08:08 PM
email link in document to email the document	mamig	Word	5	05-25-2012 10:26 AM
Adding an Email Button to a Word Document	maddoktor	Word	0	12-01-2011 01:32 PM
Send document as email	pat-ty	Word	0	09-09-2010 10:23 AM