Mail Merge - Attaching Different Files to each user

    Hi All,

    I have 56 emails that I need to send to 56 individuals. each email contains information that is for there eyes only, Ussaly I would do a Mail Merge, however each user must have a file attached that is unique to them.

    Is there any way I can do this?



    You need something like this.

    Function Send_E_Mail()

    Set rsE_Mail = CurrentDb().OpenRecordset(("INFO"))

    Set EmailApp = CreateObject("Outlook.Application")
    Set NameSpace = EmailApp.GetNamespace("MAPI")
    Set EmailSend = EmailApp.CreateItem(0)

    With rsE_Mail
    Do While Not .EOF
    EmailSend.To = strEmail
    EmailSend.Subject = Message
    EmailSend.Body = strBody
    'EmailSend.Attachments.Add ""
    EmailSend.Display ' Remove this line if you don't want to see email
    End With

    Set EmailApp = Nothing
    Set NameSpace = Nothing
    Set EmailSend = Nothing

    End Function

    Original Poster

    uh-oh this looks compucated

    What does the file attachement contain. If its just information you can add that information within the mailmerge function as another line.

    Alternatively still using mailmerge, if the attachements can be published to a secure website you can link to the customers individual data file using a single web address as the mailmerge field
    Post a comment
      Top Discussions
      1. sky q is it a good deal?55
      2. Speccing a gaming pc37
      3. help: windows 10 wifi issue55
      4. Best IPTV Paid service?1721

      See more discussions