*

Gabungan mel Microsoft word adalah alat produktiviti apa sangat baik. Mengetahui bagaimana karena membuat garis subjek yang diperibadikan dan lampiran yang mel dimasukan ciri asas Word noel menyokong boleh menjadi penyelamat kehidupan apabila their perlu untuk menulis e-mel secara pukal.

Anda sedang menonton: Ciri dari dokumen microsoft word adalah

Dalam artikel aku ini, milik mereka akan belajar cara menggunakan Wizard Mail merge Word 2010, menulis obyek e-mel apa diperibadikan, dan sediakan lampiran yang berlainan untuk setiap penerima e-mel anda.

Membuat Senarai Edaran

Mail unify Word menyelamatkan itupenggunaan dari tugas yang membosankan buat memasukkan setiap alamat e-mel penerima secara manual dengan membenarkan kita mengimport alamat e-mel daripada kenalan Outlook, Excel atau Akses data sumber atau fail data Word.

Hubungan Outlook adalah pilihan terbaik di kalangan ketiga, dan jika anda noël menggunakannya, kini akan menjadi masa apa baik untuk mengemas kini secara baik alamat Outlook anda, dan kami akan unjuk kepada anda cara melakukannya. Their boleh melangkau bahagian seterusnya dan mula menitip gabungan mel anda, jika their sudah tahu bagaimana cara menyiapkan tautan Outlook, jika tidak, kedua bahagian seterusnya akan memberi dari mereka beberapa asas tentang bagaimana buat menyiapkan kenalan Outlook anda dengan mengimport senarai kenalan berasaskan net anda.

Persiapkan profil Mel Anda

Menyediakan menghubung Outlook bermula dengan making profil mel apa menyimpan alamat e-mel akaun, kata laluan, maklumat pelayan dan pautan usai data lain such mesej e-mel dan alamat e-mel.

*
Anda boleh produksi beberapa profil, masing-masing disesuaikan menjangkau akaun e-mel tertentu.

*

Nama profil yang betul membolehkan anda mengenal pasti akaun e-mel apa anda kaitkan dengan mengajukan mel anda.

*

Anda mempunyai pilihan untuk mengkonfigurasi profil mel milik mereka menggunakan alamat e-mel yang anda terima dari ISP anda, atau akaun e-mel anda sendiri mencapai memilih pilihan ketiga.

*

Pilih "E-mel Internet" untuk menggunakan pembekal e-mel yang memberikan perkhidmatan pop - contohnya, GMail.

*

Setiap pembekal e-mel net mempunyai konfigurasi POP apa berbeza, pastikan untuk membaca menginstruksikan pengguna mereka karena mengetahui persediaan popular music mereka.

*

Tahniah! Sekiranya milik mereka melihat skrin ini, anda telah berjaya mengatur mengajukan mel anda. Sekarang, kami bersedia untuk menyediakan folder kenalan Outlook kami.

*

Mengumpul Folder menghubung Anda

Anda boleh pintu masuk senarai edaran anda secara manual usai dalam Outlook, ataukah mengimport buku alamat berasaskan net lain - such buku alamat GMail, Yahoo, atau Hotmail. Kebanyakan pemberi e-mel berasaskan net membolehkan kalian mengeksport buku alamat mereka setelah sumber data apa serasi menjangkau Outlook. Sebagai contoh, Gmail memberi kalian pilihan untuk mengeksport kenalan kami setelah fail CSV serasi Outlook.

*
Fungsi import Outlook menyokong pelbagai jenis fail: csv, vcard, RSS, iCalendar, dan banyak lagi, menjadikannya alat yang hebat buat membuat senarai pengedaran mel anda.

*

Fail CSV berada under kategori "Program atau fail lain" batin Outlook.

*

Fail ACT, DOS CSV, Lotus, access 97-2003, fail PST, adalah mayoritas fail program yang menyokong Outlook - untuk kami, kami memilih tipe fail Koma Separated values ​​(Windows).

*

Kini, cari fail CSV yang kami baru dieksport dari booker alamat Gmail.

*

Daripada setiap orang folder ini, folder kenalan adalah pilihan terbaik untuk tujuan gabungan mel kami.

*

Outlook requires beberapa minit untuk mengimport kenalan anda bergantung kepada bilangan alamat e-mel yang anda importkan.

*

Kami dengan baik dapat manfaat folder kenalan ini, terlalu banyak Outlook selesai mengimport setiap orang kenalan anda, buat gabungan mel.

Mail merge Wizard

Mulakan mencapai dokumen kosong dan membukanya reben "Mailings" untuk memulakan komposit mel kami.

*
Penyihir adalah cara terbaik untuk pemula untuk memulakan olah gabungan mel duluan mereka.

*

Memilih Penerima Mesej

Penyihir menjadi meminta kami untuk memilih jenis dokumen karena gabungan mel kami, Mesej e-mel adalah tipe dokumen yang sesuai karena mel bergabung mel aku ini.

*
Kami boleh mula menulis mesej e-mel kalian dari dokumen kosong, templat, atau dokumen apa sedia ada.

*

Pilih folder hubungan Outlook kami seperti senarai pengedaran mel kami dalam langkah 3.

*

Kami mempunyai pilihan untuk menggunakan mana-mana profil mel yang kami persiapkan di dalam sistem kami.

*

Kiraan hubungan dari mereka harus lebih daripada sifar jika Outlook mengimport alamat Gmail milik mereka dengan jayanya.

*

Pilih orang yang ingin anda sertakan di dalam pengedaran e-mel anda dengan menandakan kotak semak apa sesuai.

*

Mengarang Mesej E-mel

Mula untuk menulis mesej e-mel milik mereka dan sisihkan memasukkan bidang di mana dari mereka ingin menempatkan mesej apa diperibadikan - seperti tajuk atau nama belakang di tempat yang sesuai di dokumen anda.

*
Setiap medan gabungan menjadi disertakan di batin chevron berganda; mereka menjadi digantikan menjangkau maklumat kad kenalan anda apabila anda melengkapkan wizard penyerapan surat.
*
Pratonton mesej e-mel anda untuk melihat di mana Word memproses bidang gabungan mencapai mengklik pada pautan "Seterusnya: Pratonton mesej e-mel anda".

*

Jika their gembira mencapai pratonton, mengklik pautan "Selanjutnya: lengkapkan gabungan", dan Word become menghantar e-mel apa disatukan kepada semua penerima anda dengan garis subjek apa sama.

Memperibadikan Talian obyek Anda

Penyihir menyelesaikan proses digabung mel ke dalam langkah-langkah ini: memilih tipe dokumen dan templat apa betul, membuat senarai edaran, menilai pratonton penggabungan surat dan menghantar e-mel kepada setiap orang penerima.

Pada selama ini, anda mungkin melihat dua aktiviti penulisan e-mel biasa yang wizard noël menyokong, menulis baris subjek yang diperibadikan, dan menyediakan lampiran yang berbeza. Kita harus menggunakan makro untuk melakukannya batin gabungan mel, lebih baik sebelum kita melengkapkan wizard.

Dengan surat their terbuka, press "Alt + F11" dan klik dua kali "ThisDocument" dalam tetingkap Word merencanakan anda, untuk membuka editorial Makro.

*
Tampalkan kod makro ini, apa ditulis malalui pakar makro hutchinsfairy, usai dalam dasbor kosong dan simpannya.

Dim WithEvents wdapp as ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD as Boolean private Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 finish Sub personal Sub Document_Close() collection wdapp = Nothing finish Sub personal Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc as Document, Cancel together Boolean)Dim i together Integer through ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If i = .DataSource.DataFields.Count Do while i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop finish With end Sub personal Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord together Long, Cancel together Boolean) FIRST_RECORD = True finish Sub exclusive Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT as StringDim FIRST_RECORD as Boolean exclusive Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub exclusive Sub Document_Close() collection wdapp = Nothing end Sub exclusive Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc as Document, Cancel together Boolean)Dim i together Integer with ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do ketika i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop finish With finish Sub exclusive Sub wdapp_MailMergeBeforeMerge(ByVal Doc together Document, ByVal StartRecord together Long, ByVal EndRecord together Long, Cancel together Boolean) FIRST_RECORD = True end Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult together Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT end SubDim WithEvents wdapp as ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD together Boolean personal Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub personal Sub Document_Close() set wdapp = Nothing finish Sub private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel as Boolean)Dim i together Integer v ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do while i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop finish With finish Sub personal Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True end Sub exclusive Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp as ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD together Boolean exclusive Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub exclusive Sub Document_Close() set wdapp = Nothing end Sub exclusive Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel together Boolean)Dim i as Integer through ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If i = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop finish With finish Sub private Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel as Boolean) FIRST_RECORD = True end Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult together Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT as StringDim FIRST_RECORD together Boolean personal Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub private Sub Document_Close() set wdapp = Nothing finish Sub private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc as Document, Cancel together Boolean)Dim i together Integer through ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop finish With finish Sub exclusive Sub wdapp_MailMergeBeforeMerge(ByVal Doc together Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True finish Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT end SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT as StringDim FIRST_RECORD as Boolean exclusive Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 finish Sub exclusive Sub Document_Close() collection wdapp = Nothing end Sub private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc as Document, Cancel as Boolean)Dim i as Integer through ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do while i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop end With finish Sub exclusive Sub wdapp_MailMergeBeforeMerge(ByVal Doc together Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True end Sub exclusive Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult together Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT end SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD together Boolean personal Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 finish Sub personal Sub Document_Close() collection wdapp = Nothing end Sub private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel together Boolean)Dim i together Integer through ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop end With finish Sub private Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel as Boolean) FIRST_RECORD = True end Sub exclusive Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp as ApplicationDim EMAIL_SUBJECT as StringDim FIRST_RECORD together Boolean private Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub personal Sub Document_Close() set wdapp = Nothing end Sub exclusive Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel together Boolean)Dim i as Integer v ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If i = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop finish With finish Sub private Sub wdapp_MailMergeBeforeMerge(ByVal Doc together Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True end Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult together Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT end SubDim WithEvents wdapp as ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD as Boolean exclusive Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub exclusive Sub Document_Close() collection wdapp = Nothing end Sub personal Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc as Document, Cancel as Boolean)Dim i together Integer with ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop end With finish Sub private Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord as Long, ByVal EndRecord as Long, Cancel as Boolean) FIRST_RECORD = True finish Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp as ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD together Boolean private Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub private Sub Document_Close() collection wdapp = Nothing finish Sub personal Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel as Boolean)Dim i together Integer v ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If i = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop finish With end Sub exclusive Sub wdapp_MailMergeBeforeMerge(ByVal Doc together Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True finish Sub personal Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD as Boolean personal Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub exclusive Sub Document_Close() set wdapp = Nothing end Sub exclusive Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel together Boolean)Dim i as Integer with ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop finish With end Sub personal Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True finish Sub exclusive Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT end SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT as StringDim FIRST_RECORD together Boolean personal Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub private Sub Document_Close() set wdapp = Nothing end Sub personal Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel as Boolean)Dim i as Integer v ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If i = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop finish With finish Sub exclusive Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord as Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True end Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult together Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp as ApplicationDim EMAIL_SUBJECT as StringDim FIRST_RECORD together Boolean exclusive Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub exclusive Sub Document_Close() collection wdapp = Nothing finish Sub private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc as Document, Cancel as Boolean)Dim i as Integer v ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do ketika i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop finish With finish Sub exclusive Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel as Boolean) FIRST_RECORD = True finish Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT end SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD together Boolean private Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub exclusive Sub Document_Close() collection wdapp = Nothing finish Sub personal Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc as Document, Cancel as Boolean)Dim i as Integer through ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop end With finish Sub private Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord as Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True end Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult together Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT end SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD as Boolean private Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub private Sub Document_Close() set wdapp = Nothing end Sub personal Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel as Boolean)Dim i as Integer with ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do while i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop end With end Sub personal Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord together Long, Cancel together Boolean) FIRST_RECORD = True finish Sub exclusive Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult together Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD together Boolean personal Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 finish Sub private Sub Document_Close() collection wdapp = Nothing finish Sub private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel as Boolean)Dim i together Integer v ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop finish With end Sub exclusive Sub wdapp_MailMergeBeforeMerge(ByVal Doc together Document, ByVal StartRecord together Long, ByVal EndRecord together Long, Cancel together Boolean) FIRST_RECORD = True end Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult together Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT end SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT as StringDim FIRST_RECORD together Boolean private Sub Document_Open() collection wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 finish Sub personal Sub Document_Close() collection wdapp = Nothing finish Sub private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc as Document, Cancel as Boolean)Dim i together Integer with ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If i = .DataSource.DataFields.Count Do ketika i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = i - 1Loop end With finish Sub personal Sub wdapp_MailMergeBeforeMerge(ByVal Doc together Document, ByVal StartRecord together Long, ByVal EndRecord together Long, Cancel together Boolean) FIRST_RECORD = True end Sub exclusive Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp as ApplicationDim EMAIL_SUBJECT as StringDim FIRST_RECORD together Boolean personal Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub personal Sub Document_Close() set wdapp = Nothing end Sub private Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel together Boolean)Dim i as Integer through ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If i = .DataSource.DataFields.Count Do ketika i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop end With end Sub personal Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True finish Sub exclusive Sub wdapp_MailMergeAfterMerge(ByVal Doc as Document, ByVal DocResult together Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT end SubDim WithEvents wdapp together ApplicationDim EMAIL_SUBJECT as StringDim FIRST_RECORD as Boolean personal Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub personal Sub Document_Close() collection wdapp = Nothing end Sub exclusive Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel as Boolean)Dim i together Integer v ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If i = .DataSource.DataFields.Count Do kapan i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop finish With finish Sub personal Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord as Long, Cancel together Boolean) FIRST_RECORD = True finish Sub private Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish SubDim WithEvents wdapp as ApplicationDim EMAIL_SUBJECT together StringDim FIRST_RECORD together Boolean private Sub Document_Open() set wdapp = ApplicationThisDocument.MailMerge.ShowWizard 1 end Sub private Sub Document_Close() set wdapp = Nothing finish Sub exclusive Sub wdapp_MailMergeBeforeRecordMerge(ByVal Doc together Document, Cancel as Boolean)Dim i as Integer with ActiveDocument.MailMerge If FIRST_RECORD = True ThenEMAIL_SUBJECT = .MailSubjectFIRST_RECORD = FalseElse .MailSubject = EMAIL_SUBJECTEnd If ns = .DataSource.DataFields.Count Do while i > 0.MailSubject = Replace(.MailSubject, "", .DataSource.DataFields(i).Value,,, vbTextCompare)i = ns - 1Loop finish With end Sub personal Sub wdapp_MailMergeBeforeMerge(ByVal Doc as Document, ByVal StartRecord together Long, ByVal EndRecord together Long, Cancel as Boolean) FIRST_RECORD = True end Sub exclusive Sub wdapp_MailMergeAfterMerge(ByVal Doc together Document, ByVal DocResult as Document) ActiveDocument.MailMerge.MailSubject = EMAIL_SUBJECT finish Sub

Kembali setelah dokumen their dan klik di atas pautan "Selanjutnya: lengkapkan pautan" karena menghantar e-mel anda.

*

Klik di ~ "Mail Elektronik.

"Pautan buat menghantar mesej anda.

*

Letakkan medan gabungan yang sesuai, dikelilingi menjangkau chevron, ke dalam pengelolaan subjek.

*

Makro menjadi mengurai medan gabungan dan ganti itu dengan nama akhir penerima apabila Word melampirkan dokumen tersebut.

Melampirkan artikel yang Berbeza kepada E-Mel Anda

Hingga usai tahap ini, kita telah belajar bagaimana itu? menggunakan wizard penyerapan mel dan bagaimana untuk memperibadikan daerah subjek - dan buat menyelesaikan tutorial hari ini, kami akan menunjukkan kepada dari mereka tambahan pihak ketiga apa membolehkan kita melampirkan fail berlainan untuk setiap e-mel .

Muat down add-in, unzipnya, dan dari mereka akan mendapati bahawa add-in menyertainya datang seperti templat word Word. Digunakan "CreateEMailData native 2007 Ver02", jika milik mereka menggunakan perkataan 2007 atau 2010, dan "CreateEMailData native 2003 Ver02", jika anda menggunakan word 2003.

*
Salin design template dokumen yang sesuai ke dalam folder "% appdata% Microsoft native STARTUP" koknya "% appdata%" adalah folder permulaan Microsoft anda-dalam kes kita adalah "C: users zainul AppData Roaming".

*

Mulakan semula Firman anda, selepas milik mereka menyalin fail usai dalam folder permulaan Microsoft, dan dari mereka akan melihat dua ekstra baharu: buat Fail Data dan Gabung nanti E-mel, under menu band "Mailing".

*

Sediakan fail data mencapai jadual dua lajur - alamat e-mel penerima di lajur kiri, dan laluan penuh ke failure lampiran dari mereka di lajur sebelah kanan, then simpan di bawah folder yang sama dengan e-mel milik mereka menggabungkan dokumen sebagai "MergeAttachmentsData". Kami harus menekankan bahawa milik mereka mesti penghematan fail itu seperti "MergeAttachmentsData", jika tidak, add-in noël dapat mencari fail untuk mencari lampiran.

*

Kembali ke dokumen gabungan mel dan memecah dokumen ke dalam failure individu.

*

Tetingkap dokumen catatan baru harus muncul, dan klik butang tambah "Gabung untuk E-mel". Tampan klik butang "Ok" pada percakapan kuning, kerana kita telah menyediakan failure data.

*

Masukkan subjek yang sesuai untuk e-mel anda, mengklik OK, dan Outlook akan menghantar e-mel their dengan lampiran yang anda tetapkan batin fail data.

*

Word, mencapai ciri-ciri bergunanya, adalah alat produktiviti yang hebat. Kami berharap dapat menitip lebih banyak jadwal acara Word buat pembaca kami. Sementara itu, periksa artikel Kata-kata go di laman net kami.

Lihat lainnya: Real Madrid Vs Tottenham Live Streaming Tottenham Vs Real Madrid Vs

Kami berharap dari mereka telah belajar bagaimana menggunakan gabungan surat word dari artikel aku ini. Jangan ragu karena membincangkan petua gabungan mel lain mencapai rakan-rakan lain di bahagian komen.