loader

Povečajte svojo e-pošto Pisanje produktivnosti s spajanjem sporočil Microsoft Word

Anonim

Spajanje dokumentov Microsoft Worda je odlično orodje za produktivnost. Vedeti, kako ustvariti prilagojene vrstice predmetov in priloge, ki ne podpirajo Wordove osnovne funkcije za spajanje, je lahko reševalec življenja, ko morate pisati e-pošto v razsutem stanju.

V današnjem članku boste izvedeli, kako uporabljati Wordov čarovnik za spajanje dokumentov 2010, pisati osebne e-poštne predmete in nastaviti različne priloge za vsakega prejemnika e-pošte.

Ustvarjanje seznama razpošiljanja

Besedno sporočilo združuje nas s težavno nalogo ročnega vnašanja e-poštnega naslova vsakega prejemnika, saj nam omogoča uvoz e-poštnih naslovov iz Outlookovih stikov, Excelovih ali Accessovih podatkovnih virov ali Wordovih podatkovnih datotek.

Stik Outlook je najboljša možnost med tremi, in če ga niste uporabili, bo zdaj pravi čas, da posodobite svoj Outlookov imenik in vam bomo pokazali, kako to storite. Naslednji razdelek lahko preskočite in začnete pisati spajanje dokumentov, če že veste, kako nastaviti Outlookov stik, sicer boste v naslednjih dveh razdelkih podali nekaj osnov o tem, kako namestite Outlookov stik tako, da uvozite svoj spletni seznam stikov.

Nastavite svoj profil pošte

Nastavitev stika programa Outlook se začne z ustvarjanjem profila pošte, ki shranjuje e-poštni naslov računa, geslo, podatke o strežniku in povezave do drugih podatkov, kot so e-poštna sporočila in naslovi.

Ustvarite lahko nekaj profilov, ki so prilagojeni določenemu e-poštnemu računu.

Pravilno ime profila vam omogoča, da prepoznate e-poštni račun, ki ga povezujete s svojim poštnim profilom.

Z možnostjo e-poštnega naslova, ki ste ga prejeli od ponudnika internetnih storitev ali lastnega e-poštnega računa, lahko izberete tretjo možnost.

Izberite »Internetna e-pošta«, če želite uporabiti ponudnika e-pošte, ki omogoča storitev POP - na primer GMail.

Vsak ponudnik internetnih e-poštnih sporočil ima različne konfiguracije POP-jev, se prepričajte, da ste prebrali uporabniški priročnik, da se seznanite z nastavitvijo POP-ja.

Čestitamo! Če vidite ta zaslon, ste uspešno nastavili svoj poštni profil. Zdaj smo pripravljeni za namestitev naše Outlookove kontaktne mape.

Populacija mape stikov

Seznam prejemnikov lahko ročno vnesete v Outlook ali uvozite druge spletne naslove - kot so adresar GMail, Yahoo ali Hotmail. Večina spletnih ponudnikov elektronske pošte nam omogoča, da izvozimo svoj adresar v Outlookov združljiv vir podatkov. Na primer, Gmail nam omogoča, da naše stike izvozimo v datoteko CSV, združljivo s programom Outlook.

Funkcija uvoza programa Outlook podpira različne vrste datotek: csv, vcard, RSS, iCalendar in še veliko več, zaradi česar je odličen pripomoček za ustvarjanje seznama za spajanje spajanja.

Datoteka CSV spada v kategorijo »Drugi program ali datoteka« v Outlooku.

Datoteka ACT, datoteke DOS CSV, Lotus, Access 97-2003, PST so nekatere od programskih datotek, ki jih podpira Outlook - za nas smo izbrali vrsto datoteke Comma Separated Values ​​(Windows).

Zdaj poiščite datoteko CSV, ki smo jo pravkar izvozili iz adresarja Gmail.

Med vsemi temi mapami je mapa s stiki najboljša možnost za naš namen spajanja.

Outlook potrebuje nekaj minut, da uvozi vaš stik, odvisno od števila e-poštnih naslovov, ki jih uvažate.

To mapo stikov bi lahko uporabljali, ko bo Outlook končal uvoz vseh vaših stikov za spajanje dokumentov.

Čarovnik za spajanje dokumentov

Začnite z praznim dokumentom in odprite trak »Pošiljanje«, da začnete s spajanjem pošte.

Čarovnik je najboljši način za začetnike, da začnejo izvajati prvo spajanje.

Izbiranje prejemnikov sporočil

Čarovnik nas bo prosil, da izberemo vrsto dokumenta za naše spajanje dokumentov, e-poštna sporočila so ustrezna vrsta dokumenta za današnjo vajo spajanja dokumentov.

E-poštno sporočilo lahko začnemo pisati iz praznega dokumenta, predloge ali obstoječega dokumenta.

Izberite našo mapo Outlookovih stikov kot naš seznam za spajanje e-pošte v 3. koraku.

Imamo možnost, da uporabimo kateri koli poštni profil, ki smo ga nastavili v našem sistemu.

Število stikov bi moralo biti več kot nič, če je Outlook uspešno uvozil vaš Gmailov naslov.

Izberite osebe, ki jih želite vključiti v distribucijo e-pošte, tako da označite ustrezna potrditvena polja.

Sestavljanje e-poštnega sporočila

Začnite pisati e-poštno sporočilo in vstavite polja za združevanje, kjer želite na ustrezno mesto v dokumentu namestiti prilagojena sporočila - na primer naslov ali priimek.

Vsako polje za spajanje bo zaprto v dvojni ševron; Ko končate čarovnika za spajanje dokumentov, bodo zamenjani s podatki o vaši kontaktni kartici.

Predogled vašega e-poštnega sporočila, da vidite, kako Word obdela polja za združevanje s klikom na povezavo »Naprej: Predogled e-poštnih sporočil«.

Če ste zadovoljni s predogledom, kliknite povezavo »Naprej: dokončajte spajanje« in Word bo združen e-poštni naslov poslal vsem prejemnikom s skupnim naslovom.

Prilagajanje vrstice zadeve

Čarovnik prekine proces spajanja dokumentov v te korake: izbere pravo vrsto dokumenta in predlogo, ustvari seznam za razpošiljanje, oceni predogled spajanja dokumentov in pošlje e-pošto vsem prejemnikom.

Na tej točki boste morda opazili dve običajni dejavnosti pisanja e-pošte, ki ju čarovnik ne podpira, pisanje prilagojenih vrstic predmetov in nastavitev različnih prilog. Moramo uporabiti makro, da jih naredimo v spajanju pošte, po možnosti še preden zaključimo čarovnika.

Ko je pismo odprto, pritisnite “Alt + F11” in dvakrat kliknite “ThisDocument” v delovnem oknu Word, da odprete urejevalnik makrov.

Prilepite to makro kodo, ki jo je napisal strokovnjak za makro kodiranje hutchinsfairy, v prazno podokno in jo shranite.

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Dim WithEvents wdapp As Application
Dim EMAIL_SUBJECT As String
Dim FIRST_RECORD As Boolean Private Sub Document_Open() Set wdapp = Application
ThisDocument.MailMerge.ShowWizard 1 End Sub Private Sub Document_Close() Set wdapp = Nothing End Sub Private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc As Document, Cancel As Boolean)
Dim i As Integer With ActiveDocument.MailMerge If FIRST_RECORD = True Then
EMAIL_SUBJECT = .MailSubject
FIRST_RECORD = False
Else .MailSubject = EMAIL_SUBJECT
End If i = .DataSource.DataFields.Count Do While i > 0
.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)
i = i - 1
Loop End With End Sub Private Sub wdapp_MailMergeBeforeMerge(ByVal Doc As Document, ByVal StartRecord As Long, ByVal EndRecord As Long, Cancel As Boolean) FIRST_RECORD = True End Sub Private Sub wdapp_MailMergeAfterMerge(ByVal Doc As Document, ByVal DocResult As Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT End Sub

Vrnite se k dokumentu in kliknite povezavo »Naprej: dokončaj spajanje«, da pošljete e-pošto.

Kliknite na “Elektronska pošta.

Povezavo za pošiljanje sporočila.

Postavite ustrezna polja za spajanje, obdana s šivrom, v vrstico z zadevo.

Makro bo razčlenil polje za spajanje in ga nadomestil s prejemnikovim priimkom, ko bo Word poslal dokument.

Vstavljanje različnih elementov v e-pošto

Do te točke smo se naučili, kako uporabljati čarovnika za spajanje pošte in kako prilagoditi tematska polja - in za dokončanje današnje vadnice vam bomo prikazali dodatek tretje osebe, ki nam bo omogočil, da za vsako e-pošto priložimo različno datoteko .

Prenesite dodatek, ga razširite in ugotovili boste, da je dodatek na voljo kot predloge Wordovih dokumentov. Če uporabljate Word 2003, uporabite »CreateEMailData Word 2007 Ver02«, če uporabljate besedo 2007 ali 2010, in »CreateEMailData Word 2003 Ver02«.

Kopirajte ustrezno predlogo dokumenta v mapo »% appdata% Microsoft Word«, kjer je »% appdata%« vaša Microsoftova zagonska mapa - v našem primeru je to »C: Uporabniki za AppData gostovanje«.

Po kopiranju datoteke v Microsoftovo zagonsko mapo znova zaženite Word in videli boste dva nova dodatka: Ustvarite podatkovno datoteko in združite se v e-pošto v meniju »Pošiljanje«.

Pripravite podatkovno datoteko z dvo-stolpčno tabelo - e-poštni naslov prejemnika v levem stolpcu in celotno pot do datoteke priponk v desnem stolpcu, nato pa jo shranite v isto mapo kot vaš spajanje dokumentov kot »MergeAttachmentsData«. Poudariti moramo, da morate datoteko shraniti kot »MergeAttachmentsData«, sicer dodatek ne najde datoteke za iskanje priponk.

Vrnite se na dokument za spajanje dokumentov in razdelite dokumente v posamezne datoteke.

Pojavilo se mora novo okno dokumenta z besedo in kliknite gumb »Spoji na e-pošto«. Na rumenem pogovornem oknu preprosto kliknite gumb 'Ok', ker smo že pripravili podatkovno datoteko.

Vnesite ustrezno temo za e-pošto, kliknite V redu in Outlook bo poslal e-poštno sporočilo s prilogo, ki jo določite v podatkovni datoteki.

Word, s svojimi številnimi uporabnimi funkcijami, je resnično odlično orodje za produktivnost. Veselimo se, da bomo lahko za naše bralce napisali več člankov. Medtem si oglejte druge članke o Words na naši spletni strani.

Upamo, da ste se naučili, kako uporabljati Wordovo spajanje iz današnjega članka. V drugih oddelkih za komentarje se lahko pogovorite o drugih namigih za spajanje.

Izbira Urednika