Kako poslati osebna množična e-poštna sporočila na seznam iz Excela prek Outlooka?
Na primer, na delovnem listu imam naslednji obseg podatkov, ki vsebuje stolpce Ime, E-poštni naslov, Registracijska koda, zdaj pa želim poslati sporočilo s prilagojenim pozdravom in svojo registracijsko kodo na ločene e-poštne naslove v stolpcu A. Za rešitev te težave vam bodo morda pomagali naslednji načini.
Pošljite osebna množična e-poštna sporočila na seznam iz Excela s funkcijo Mail Merge
Pošljite osebna množična e-poštna sporočila na seznam iz Excela s kodo VBA
Pošljite osebna množična e-poštna sporočila na seznam z različnimi prilogami z uporabo Kutools za Excel
Pošljite osebna množična e-poštna sporočila na seznam iz Excela s funkcijo Mail Merge
Z besedo Spajanje dokumentov funkcijo, lahko to delo končate hitro in enostavno, naredite naslednje po korakih:
1. Zaženite nov prazen Wordov dokument in kliknite Pošiljanje > Izberite Prejemniki > Uporabite obstoječi seznam, glej posnetek zaslona:
2. v Izberite Vir podatkov okno, izberite delovni zvezek, ki vključuje obseg podatkov, ki ga želite uporabiti, in kliknite Odprto gumb, glej posnetek zaslona:
3. V prihodnosti Izberite tabelo v pogovornem oknu izberite delovni list s potrebnim obsegom podatkov in kliknite OK gumb, glej posnetek zaslona:
4. In glavni dokument e-poštnega sporočila in seznam naslovov sta bila povezana skupaj, zdaj lahko urejate besedilno sporočilo in dodate ograde, ki označujejo, kje bodo v vsakem sporočilu prikazane edinstvene informacije.
(1.) Če želite vstaviti njihovo osebno ime pozdrava, kliknite Pošiljanje > Vstavi polje spajanja > Ime, je bilo v sporočilo vstavljeno osebno ime, ime polja pa obdano z «».
(2.) Nadaljujte s sporočilom in vstavite Registracijska koda na mesto, kjer potrebujete, si oglejte posnetek zaslona:
5. Po sestavi sporočila lahko kliknete Predogled rezultatov pod Poštni za predogled e-poštnih sporočil in spremembe, preden dejansko dokončate združitev.
6. Ko se prepričate, da ni težav, lahko pošljete e-pošto ločenim prejemnikom, kliknite Pošiljanje > Dokončaj in združi > Pošlji e-poštno sporočilo, glej posnetek zaslona:
7. Potem v izskočil Združite se z e-pošto v pogovornem oknu izvedite naslednje postopke:
(1.) Iz Da spustnega seznama, izberite Email naslov stolpec;
(2.) Zadevo lahko vtipkate v Zadeva vrstica z besedilom;
(3.) Iz Pošlji zapise izberite, izberite vsi.
8. In nato kliknite OK, e-poštna sporočila se hkrati pošljejo ločenim prejemnikom z lastno registracijsko kodo. Po pošiljanju e-poštnih sporočil lahko obiščete Outlook in preverite, ali so bila e-poštna sporočila uspešno poslana.
Pošljite prilagojena e-poštna sporočila več prejemnikom z različnimi prilogami:
z Kutools za Excel's Pošlji e-pošto funkcija, lahko hitro pošljete prilagojena e-poštna sporočila več prejemnikom z različnimi prilogami iz Excela prek Outlooka, kot jih potrebujete. Hkrati lahko sporočila CC ali Bcc kopirate tudi določeni osebi. Prenesite in brezplačno preizkusite Kutools za Excel zdaj! |
Pošljite osebna množična e-poštna sporočila na seznam iz Excela s kodo VBA
Razen funkcije Merge Mail vam lahko tudi naslednja koda VBA naredi uslugo, storite tako:
1. Držite tipko ALT + F11 in odpre tipko Microsoft Visual Basic za aplikacije okno.
2. Kliknite Vstavi > Moduliin prilepite naslednjo kodo v Moduli Okno.
Koda VBA: Pošljite osebna množična e-poštna sporočila na seznam iz Excela:
#If VBA7 And Win64 Then
Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As LongPtr
#Else
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long) As Long
#End If
Sub SendEMail()
'update by Extendoffice 20160506
Dim xEmail As String
Dim xSubj As String
Dim xMsg As String
Dim xURL As String
Dim i As Integer
Dim k As Double
Dim xCell As Range
Dim xRg As Range
Dim xTxt As String
On Error Resume Next
xTxt = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Columns.Count <> 3 Then
MsgBox " Regional format error, please check", , "Kutools for Excel"
Exit Sub
End If
For i = 1 To xRg.Rows.Count
' Get the email address
xEmail = xRg.Cells(i, 2)
' Message subject
xSubj = "Your Registration Code"
' Compose the message
xMsg = ""
xMsg = xMsg & "Dear " & xRg.Cells(i, 1) & "," & vbCrLf & vbCrLf
xMsg = xMsg & " This is your Registration Code "
xMsg = xMsg & xRg.Cells(i, 3).Text & "." & vbCrLf & vbCrLf
xMsg = xMsg & " please try it, and glad to get your feedback! " & vbCrLf
xMsg = xMsg & "Skyyang"
' Replace spaces with %20 (hex)
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
' Replace carriage returns with %0D%0A (hex)
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
' Create the URL
xURL = "mailto:" & xEmail & "?subject=" & xSubj & "&body=" & xMsg
' Execute the URL (start the email client)
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
' Wait two seconds before sending keystrokes
Application.Wait (Now + TimeValue("0:00:02"))
Application.SendKeys "%s"
Next
End Sub
3. Nato pritisnite F5 tipko za zagon te kode in pojavilo se bo pozivno polje, ki vas bo opomnilo, da izberete obseg podatkov, ki ga želite uporabiti, glejte posnetek zaslona:
4. In nato kliknite OK gumba, bodo e-poštna sporočila poslana na ločene naslove s svojo individualno registracijsko kodo eno za drugo, po pošiljanju e-poštnih sporočil pa lahko v svoj Outlook preverite, ali so bila e-poštna sporočila uspešno poslana.
Opombe: V zgornji kodi lahko spremenite zadevo ali sporočilo telesa po svojih željah.
Pošljite osebna množična e-poštna sporočila na seznam z različnimi prilogami z uporabo Kutools za Excel
Če imate Kutools za Excel, Z njegovim Pošlji e-pošto lahko hitro pošljete prilagojena e-poštna sporočila več prejemnikom z različnimi prilogami, kot jih potrebujete.
Kutools za Excel : z več kot 300 priročnimi dodatki za Excel, ki jih lahko brezplačno preizkusite v 30 dneh. |
Po namestitvi Kutools za Excel, naredite tako:
1. Kliknite Kutools Plus > Pošlji e-pošto, glej posnetek zaslona:
2. v Pošlji Emials v pogovornem oknu izberite obseg podatkov, ki ga želite uporabiti, in nato po potrebi navedite naslove prejemnikov, priloge in zadevo, glejte posnetek zaslona:
3. V polje za urejanje vstavite posamezna imena voščil, izberite Ime s spustnega seznama in nato kliknite Vstavite ogradico če želite v sporočilo vstaviti imena, si oglejte posnetek zaslona:
4. Nato v polje vnesite telo sporočila, kot želite, glejte posnetek zaslona:
5. Ko končate telo e-pošte, izberite želeni način pošiljanja, ki ga lahko pošljete z Outlookom ali določenim strežnikom, glejte screesnhot:
Opombe: Če želite uporabiti drug strežnik, kliknite Nastavitve odhodnega strežnika če želite način pošiljanja nastaviti na svojega, glejte screesnhot:
6. Končno kliknite Pošlji gumb za pošiljanje e-poštnih sporočil, po dokončanju se odpre pozivno polje, ki vas opozori na stanje pošiljanja. glej screesnhot:
Kliknite Prenesi in brezplačno preizkusite Kutools za Excel zdaj!
Predstavitev: pošljite osebna množična e-poštna sporočila na seznam iz Excela prek Outlooka
Povezani članek:
Kako poslati e-pošto več prejemnikom na seznamu iz Excela prek Outlooka?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!