Afdruk samenvoegen naar email (mailmerge) met bijlage

Pagina: 1
Acties:

Onderwerpen


Acties:
  • 0 Henk 'm!

  • Zewatanejo
  • Registratie: Juli 2003
  • Nu online

Zewatanejo

Fine Thanks!

Topicstarter
Ik wil meerdere emails verzenden met een bijlage via MS word 2003.
Op zich kan dat wel met afdruk samenvoegen naar email. Echter, kan ik dan geen bijlage bijvoegen. Of ik kan alleen de bijlage versturen, zonder tekst in de email.

Ik wil dit doen om dat ik gepersonaliseerde emails wil sturen (in de adressering)

Klopt het dat dit gewoon niet mogelijk is in office 2003? Of zie ik iets over het hoofd?
Google geeft mij geen uitsluitsel....

Get Busy Living or Get Busy Dying
Kiwi's are too nice to be honest and the Dutch are too honest to be nice.


Acties:
  • 0 Henk 'm!

  • Rupie
  • Registratie: Augustus 2006
  • Laatst online: 24-06 10:44
Standaard is dat inderdaad niet mogelijk. Een simpele zoekopdracht bij google geeft overigens wel mogelijkheden als deze: http://omma.sourceforge.net/
Ik heb het zelf nooit gebruikt, maar je kan altijd even kijken of het doet wat jij wil.

Desktop | Server | Laptop


Acties:
  • 0 Henk 'm!

  • Witte
  • Registratie: Februari 2000
  • Laatst online: 01-04 17:01
Je kan een simpel VBA-scriptje maken die die mails verstuurt. Je kan dit vrij eenvoudig in Excel of Access (voorkeur) doen.
Maak gebruik van CDO en connecteer rechtstreeks met je SMTP-server.

code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
Sub CDO_Mail(emailadres as String, bodytext as String)
    Dim iMsg As Object
    Dim objBP As Object
    Dim iConf As Object
    Dim Flds As Variant

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    
    iConf.Load -1    ' CDO Source Defaults
    Set Flds = iConf.Fields
    With Flds
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.domain.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Update
    End With

    With iMsg
        Set .Configuration = iConf
        .Mimeformatted = True

        .To = emailadres
        .from = "noreply@domain.com"
        .subject = "Mailsubject"
        .htmlbody = bodytext
        .addattachment "C:\docs\attachment.pdf"

        .Send
    End With

End Sub


Wel even in de code de smtp-server invullen, het from-adres en het bijlage-pad.

Op basis van bovenstaande procedure verstuur ik gepersonliaseerde nieuwsbrieven. Zowel de body van de mail, het mailadres en de bijlagen kan je zo personaliseren :)

[ Voor 6% gewijzigd door Witte op 24-08-2011 23:34 ]

Houdoe