Results 1 to 3 of 3

Thread: Send Outlook Email With Word Document

  1. #1
    Junior Member
    Join Date
    Jun 2012
    Posts
    5
    Rep Power
    0

    Smile Send Outlook Email With Word Document

    Code:
    Sub emailmergewithattachments()
    Dim Source As Document, Maillist As Document, TempDoc As Document
    Dim Datarange As Range
    Dim i As Long, j As Long
    Dim bStarted As Boolean
    Dim oOutlookApp As Outlook.Application
    Dim oItem As Outlook.MailItem
    Dim mysubject As String, message As String, title As String
    Set Source = ActiveDocument
    ' Check if Outlook is running.  If it is not, start Outlook
    On Error Resume Next
    Set oOutlookApp = GetObject(, "Outlook.Application")
    If Err <> 0 Then
        Set oOutlookApp = CreateObject("Outlook.Application")
        bStarted = True
    End If
    ' Open the catalog mailmerge document
    With Dialogs(wdDialogFileOpen)
        .Show
    End With
    Set Maillist = ActiveDocument
    ' Show an input box asking the user for the subject to be inserted into the email messages
    message = "Enter the subject to be used for each email message."    ' Set prompt.
    title = " Email Subject Input"    ' Set title.
    ' Display message, title
    mysubject = InputBox(message, title)
    ' Iterate through the Sections of the Source document and the rows of the catalog mailmerge document,
    ' extracting the information to be included in each email.
    For j = 1 To Source.Sections.Count - 1
        Set oItem = oOutlookApp.CreateItem(olMailItem)
        With oItem
            .Subject = mysubject
            .Body = Source.Sections(j).Range.Text
            Set Datarange = Maillist.Tables(1).Cell(j, 1).Range
            Datarange.End = Datarange.End - 1
            .To = Datarange
            For i = 2 To Maillist.Tables(1).Columns.Count
                Set Datarange = Maillist.Tables(1).Cell(j, i).Range
                Datarange.End = Datarange.End - 1
                .Attachments.Add Trim(Datarange.Text), olByValue, 1
            Next i
        
    .Send
        End With
        Set oItem = Nothing
    Next j
    Maillist.Close wdDoNotSaveChanges
    '  Close Outlook if it was started by this macro.
    If bStarted Then
        oOutlookApp.Quit
    End If
    MsgBox Source.Sections.Count - 1 & " messages have been sent."
    'Clean up
    Set oOutlookApp = Nothing
    End Sub
    ************************************************** *****************************************

    Hi Expert, i got above code to send emails through mail-merge with attachments, its working fine but i want to add "Cc" address column also, i think i have to change code in the BOLDEDfont section, i was unable to change the code, can you help me out to make it done,Thanks in Advance.
    Attached Files Attached Files
    Last edited by Murali K; 06-25-2012 at 09:23 PM.

  2. #2
    Administrator Excel Fox's Avatar
    Join Date
    Mar 2011
    Posts
    1,402
    Rep Power
    10
    After
    Code:
    .To = Datarange
    did you try to add
    Code:
    .CC = Datarange.offset(,1)
    A dream is not something you see when you are asleep, but something you strive for when you are awake.

    It's usually a bad idea to say that something can't be done.

    The difference between dream and aim, is that one requires soundless sleep to see and the other requires sleepless efforts to achieve

    Join us at Facebook

  3. #3
    Junior Member
    Join Date
    Jun 2012
    Posts
    5
    Rep Power
    0
    hi expert thanks for replay, i tried as u suggested, but i m getting
    "Compile Error-Method or Data Member not found"
    please help me to get it done..........................Thanks in advance.......

Similar Threads

  1. Replies: 12
    Last Post: 12-10-2019, 09:56 PM
  2. Replies: 2
    Last Post: 05-23-2013, 08:08 AM
  3. Replies: 1
    Last Post: 05-21-2013, 11:58 AM
  4. Replies: 2
    Last Post: 04-17-2013, 11:53 PM
  5. How To Send Outlook Email Using VBA
    By mfaisalrazzak in forum Excel Help
    Replies: 7
    Last Post: 03-03-2013, 03:09 AM

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •