Word Macro to Save & Send Email - Need Help!!

Word Discussion in 'Microsoft Office' started by Meghan, Oct 29, 2009.

  1. Meghan

    Meghan

    Joined:
    Oct 29, 2009
    Likes Received:
    0
    I am using the following code to email word document (its actually a form) as attachment and to save it to my "P:/" drive. It seems working but the code will need to modify for the following reasons:

    1. Once I am done filling out the form and hit the command button to run the macro… the document (form) actually sent to email and also saved to my "P:/" drive successfully but its over saved the master file. I need the form to be blank at all time.
    2. Also, I want to have the files to be stamp with date and time (as a file name for the form) that going to be email and save to "p:/" drive.
    I will appreciate any help. Thanks!!

    The code I am using is:

    Private Sub CommandButton1_Click()



    Dim OL As Object

    Dim EmailItem As Object

    Dim Doc As Document



    Application.ScreenUpdating = False

    Set OL = CreateObject("Outlook.Application")

    Set EmailItem = OL.CreateItem(olMailItem)

    Set Doc = ActiveDocument

    Doc.SaveAs

    With EmailItem

    .Subject = "Insert Subject Here"

    .Body = "Insert message here" & vbCrLf & _

    "Line 2" & vbCrLf & _

    "Line 3"

    .To = "name@company.com"

    .Importance = olImportanceNormal 'Or olImprotanceHigh Or olImprotanceLow

    .Attachments.Add Doc.FullName

    .Send

    End With



    Application.ScreenUpdating = True



    Set Doc = Nothing

    Set OL = Nothing

    Set EmailItem = Nothing



    Flag = True

    sPath = "P:\"

    ActiveDocument.SaveAs FileName:=sPath & ActiveDocument.Name

    Flag = False

    Application.Documents.Close

    CommandButton1.Visible = False



    End Sub

     
    Meghan, Oct 29, 2009
    #1
    1. Advertisements

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads
There are no similar threads yet.
Loading...