Preskoči na glavno vsebino

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.

doc pošilja prilagojena e-poštna sporočila 1

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


puščica modri desni mehurček 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:

doc pošilja prilagojena e-poštna sporočila 2

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:

doc pošilja prilagojena e-poštna sporočila 3

3. V prihodnosti Izberite tabelo v pogovornem oknu izberite delovni list s potrebnim obsegom podatkov in kliknite OK gumb, glej posnetek zaslona:

doc pošilja prilagojena e-poštna sporočila 4

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 «».

doc pošilja prilagojena e-poštna sporočila 5

(2.) Nadaljujte s sporočilom in vstavite Registracijska koda na mesto, kjer potrebujete, si oglejte posnetek zaslona:

doc pošilja prilagojena e-poštna sporočila 6

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:

doc pošilja prilagojena e-poštna sporočila 7

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.

doc pošilja prilagojena e-poštna sporočila 8

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!

doc pošilja prilagojena e-poštna sporočila 18 1


puščica modri desni mehurček 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:

doc pošilja prilagojena e-poštna sporočila 9

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.


puščica modri desni mehurček 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:

doc pošilja prilagojena e-poštna sporočila 9

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:

doc pošilja prilagojena e-poštna sporočila 9

4. Nato v polje vnesite telo sporočila, kot želite, glejte posnetek zaslona:

doc pošilja prilagojena e-poštna sporočila 9

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:

doc pošilja prilagojena e-poštna sporočila 9

Opombe: Če želite uporabiti drug strežnik, kliknite Nastavitve odhodnega strežnika če želite način pošiljanja nastaviti na svojega, glejte screesnhot:

doc pošilja prilagojena e-poštna sporočila 9

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:

doc pošilja prilagojena e-poštna sporočila 9

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

Kutools za Excel: z več kot 300 priročnimi dodatki za Excel, brezplačno preizkusite brez omejitev v 30 dneh. Prenesite in brezplačno preskusite zdaj!

Povezani članek:

Kako poslati e-pošto več prejemnikom na seznamu iz Excela prek Outlooka?

Najboljša pisarniška orodja za produktivnost

Priljubljene funkcije: Poiščite, označite ali identificirajte dvojnike   |  Izbriši prazne vrstice   |  Združite stolpce ali celice brez izgube podatkov   |   Krog brez formule ...
Super iskanje: Več kriterijev VLookup    Multiple Value VLookup  |   VLookup na več listih   |   Nejasno iskanje ....
Napredni spustni seznam: Hitro ustvarite spustni seznam   |  Odvisni spustni seznam   |  Večkrat izberite spustni seznam ....
Upravitelj stolpcev: Dodajte določeno število stolpcev  |  Premakni stolpce  |  Preklop stanja vidnosti skritih stolpcev  |  Primerjaj obsege in stolpce ...
Predstavljene funkcije: Mrežni fokus   |  Pogled oblikovanja   |   Velika vrstica formule    Upravitelj delovnih zvezkov in listov   |  Knjižnica virov (Samodejno besedilo)   |  Izbirnik datuma   |  Združite delovne liste   |  Šifriranje/dešifriranje celic    Pošljite e-pošto po seznamu   |  Super filter   |   Poseben filter (filter krepko/ležeče/prečrtano ...) ...
15 najboljših kompletov orodij12 Besedilo Orodja (dodajanje besedila, Odstrani znake,...)   |   50 + Graf Vrste (Gantt Chart,...)   |   40+ Praktično Formule (Izračunajte starost glede na rojstni dan,...)   |   19 vstavljanje Orodja (Vstavite kodo QR, Vstavi sliko s poti,...)   |   12 Pretvorba Orodja (Številke v besede, Pretvorba valut,...)   |   7 Spoji in razdeli Orodja (Napredne kombinirane vrstice, Razdeljene celice,...)   |   ... in več

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...

zavihek kte 201905


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!
Comments (47)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Hi, I have used this from your Kutools for Excel, and it works a dream. However, the Outlook email signature is not working, despite it being checked off. I have a default email signature set up in Outlook to go with the default mail account. But no matter how many times I try, I can't get Kutools to insert the signature before sending the email. Should I be doing something different in Outlook with the email signature?
This comment was minimized by the moderator on the site
Hello, Rochelley
Did you select the signature from the Outlook's Signatures and Stationery dialog box, see screenshot:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-signature-1.png
Please check it first, thank you!

If there still problem, please comment here.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
Hello, Blanchard

With our Send Emails feature, you can send the links of the shared files successfully.
You just need to change the attachment path to the link of the shared file, see below screenshot:

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-bulk-send-emails.png

Please try, hope it can help you!

If this doesn't work, you can upload your error image here, so that we can check the problem.
This comment was minimized by the moderator on the site
I've used KuTools Send Emails for personalized attachments using an Excel list and it works well. Is it possible to use this functionality to send personalized links to shared files instead of attachments? I've tried and haven't been able to get this to work.
This comment was minimized by the moderator on the site
In "Send personalized mass emails to a list from Excel with VBA code", it cannot work.For starters, the instructions wrt F11 does nothing, and so useless blather.Next, the #If...#End If cannot exist anywhere, as it (1) is treated as a comment and (2) the compiler crashes (cannot compile).So one tries it after the End Sub because the compiler says in effect comments to be after End Sub.Naturally, the "ShellExecute" causes a crash because it is not declared: remember, the #If...#End If had to be removed.
It would be nice to have WORKING code.
This comment was minimized by the moderator on the site
Thanks for the "How To Send Personalized Mass Emails To A List From Excel Via Outlook?", it is very useful.Question: I have 2 email addresses on my outlook. I want to use the 2nd one to send the personalized mass emails. How should I do that? I cannot find the way of changing the "From" when I finish&Merge. Can you help?
This comment was minimized by the moderator on the site
Hello, Pilar,The normal Mail Merge function only can help to send the emials from the default account, if you want to send eamils from other account you defined, you can use our Send Emails feature of Kutools for Excel. You can download and installed the Kutools for Excel, free trial 30 days.Please try, hope it can help you!
This comment was minimized by the moderator on the site
<p>Could you please help me to include table structure in below code ?</p><p>Gopalakrishnan</p>
This comment was minimized by the moderator on the site
I used the kutools send mail option after sending mail theres no attachment
This comment was minimized by the moderator on the site
Hi, marian,
Do you type the full path of the attachments into the cells? Please check it. Thank you!
This comment was minimized by the moderator on the site
No I didn't type the path rather I used the insert link button to add the attachment
This comment was minimized by the moderator on the site
Hi, I have to send to one email address(BOT) multiple request for *documents.
* Subject line needs to be the document reference number as demonstrated in below table.
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110

please help me simplyfy my task. I use MS outlook 2013 and 2016
This comment was minimized by the moderator on the site
Email ID Subject
# policy 111
# policy 222
# policy 333
# policy 444
# policy 555
# policy 666
# policy 777
# policy 888
# policy 999
# policy 1110
This comment was minimized by the moderator on the site
Sub SendEm()

Dim i As Integer, Mail_Object, Email_Subject, o As Variant, lr As Long

lr = Cells(Rows.Count, "A").End(xlUp).Row

Set Mail_Object = CreateObject("Outlook.Application")

For i = 2 To lr

With Mail_Object.CreateItem(o)

.Subject = Range("B" & i).Value

.To = Range("A" & i).Value



.Body = Range("C" & i).Value

.attachments.Add (Sheets("Sheet1").Range("H" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("I" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("J" & i).Text)

.attachments.Add (Sheets("Sheet1").Range("K" & i).Text)

.Send



'.display 'disable display and enable send to send automatically

End With

Next i

MsgBox "E-mail successfully sent", 64

Application.DisplayAlerts = False

Set Mail_Object = Nothing

End Sub
There are no comments posted here yet
Load More
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations