Skip i'r prif gynnwys

Sut i anfon e-byst torfol wedi'u personoli i restr o Excel trwy Outlook?

Er enghraifft, mae gennyf yr ystod ddata ganlynol mewn taflen waith sy'n cynnwys Enw, Cyfeiriad E-bost, colofnau Cod Cofrestru, ac yn awr, rwyf am anfon neges gyda chyfarchiad wedi'i bersonoli a'u Cod Cofrestru eu hunain i'r Cyfeiriadau E-bost sydd wedi'u gwahanu yng ngholofn A. I ddatrys y broblem hon, gall y dulliau canlynol eich helpu chi.

doc anfon e-byst wedi'u personoli 1

Anfon e-byst torfol wedi'u personoli i restr o Excel gyda swyddogaeth Mail Merge

Anfon e-byst torfol wedi'u personoli i restr o Excel gyda chod VBA

Anfonwch e-byst torfol personol i restr gyda gwahanol atodiadau trwy ddefnyddio Kutools ar gyfer Excel


swigen dde glas saeth Anfon e-byst torfol wedi'u personoli i restr o Excel gyda swyddogaeth Mail Merge

Gyda'r Gair Mail Merge swyddogaeth, gallwch chi orffen y swydd hon yn gyflym ac yn hawdd, gwnewch y cam wrth gam canlynol:

1. Lansio dogfen Word wag newydd, ac yna cliciwch Postiadau > Dewiswch Dderbynwyr > Defnyddiwch Restr Bresennol, gweler y screenshot:

doc anfon e-byst wedi'u personoli 2

2. Yn y Dewiswch Ffynhonnell Data ffenestr, dewiswch y llyfr gwaith sy'n cynnwys yr ystod ddata rydych chi am ei defnyddio, a chlicio agored botwm, gweler y screenshot:

doc anfon e-byst wedi'u personoli 3

3. Yn y dod Dewiswch Dabl blwch deialog, dewiswch y daflen waith gyda'r ystod ddata sydd ei hangen arnoch, ac yna cliciwch OK botwm, gweler y screenshot:

doc anfon e-byst wedi'u personoli 4

4. Ac mae'r brif ddogfen neges E-bost a'ch rhestr cyfeiriadau wedi'u cysylltu gyda'i gilydd, nawr, gallwch chi olygu'r neges destun ac ychwanegu deiliaid lleoedd sy'n nodi lle bydd y wybodaeth unigryw yn ymddangos ym mhob neges.

(1.) I fewnosod eu henw cyfarch unigol, cliciwch Postiadau > Mewnosod Merge Field > Enw, mae'r enw wedi'i bersonoli wedi'i fewnosod yn y neges, ac mae enw'r maes wedi'i amgylchynu gan «».

doc anfon e-byst wedi'u personoli 5

(2.) Ewch ymlaen i deipio'ch neges a mewnosodwch y Cod Cofrestru i mewn i'r man lle mae angen, gweler y screenshot:

doc anfon e-byst wedi'u personoli 6

5. Ar ôl cyfansoddi'r neges, gallwch glicio Canlyniadau Rhagolwg O dan y Mailing tab i gael rhagolwg o negeseuon E-bost a gwneud newidiadau cyn i chi gwblhau'r uno mewn gwirionedd.

6. Ar ôl sicrhau nad oes problem, gallwch anfon yr E-byst at y derbynwyr ar wahân, cliciwch Postiadau > Gorffen ac Uno > Anfon Neges E-bost, gweler y screenshot:

doc anfon e-byst wedi'u personoli 7

7. Yna yn y popped allan Uno i E-bost blwch deialog, gwnewch y gweithrediadau canlynol:

(1.) O'r I rhestr ostwng, dewiswch Cyfeiriad ebost colofn;

(2.) Gallwch deipio'r pwnc yn y Pwnc blwch testun llinell;

(3.) O'r Anfon cofnodion adran, dewiswch Popeth.

doc anfon e-byst wedi'u personoli 8

8. Ac yna cliciwch OK, anfonir yr e-byst at dderbynwyr ar wahân gyda’u cod cofrestru eu hunain ar unwaith, ar ôl anfon yr e-byst, gallwch fynd at eich Camre i sicrhau bod yr e-byst wedi’u hanfon yn llwyddiannus.


Anfon e-byst wedi'u personoli at dderbynwyr lluosog gyda gwahanol atodiadau:

Gyda Kutools ar gyfer Excel's Anfon E-byst nodwedd, gallwch chi anfon e-byst wedi'u personoli yn gyflym at dderbynwyr lluosog gyda gwahanol atodiadau gan Excel trwy Outlook yn ôl yr angen. Ar yr un pryd, gallwch CC neu Bcc y negeseuon i berson penodol hefyd.       Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr!

doc yn anfon e-byst wedi'u personoli 18 1


swigen dde glas saeth Anfon e-byst torfol wedi'u personoli i restr o Excel gyda chod VBA

Ac eithrio'r swyddogaeth Mail Merge, gall y cod VBA canlynol ffafrio chi hefyd, gwnewch fel hyn:

1. Daliwch i lawr y ALT + F11 allweddi, ac mae'n agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Cliciwch Mewnosod > Modiwlau, a gludwch y cod canlynol yn y Modiwlau Ffenestr.

Cod VBA: Anfon e-byst torfol wedi'u personoli i restr gan Excel:

#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. Yna, pwyswch F5 allwedd i redeg y cod hwn, a bydd blwch prydlon yn popio allan i'ch atgoffa i ddewis yr ystod ddata rydych chi am ei defnyddio, gweler y screenshot:

doc anfon e-byst wedi'u personoli 9

4. Ac yna cliciwch OK botwm, bydd yr e-byst yn cael eu hanfon i gyfeiriadau ar wahân gyda’u cod cofrestru unigol fesul un, ar ôl anfon yr e-byst, gallwch fynd at eich Camre i sicrhau bod yr e-byst wedi’u hanfon yn llwyddiannus.

Nodyn: Yn y cod uchod, gallwch newid neges y pwnc neu'r corff i'ch angen.


swigen dde glas saeth Anfonwch e-byst torfol personol i restr gyda gwahanol atodiadau trwy ddefnyddio Kutools ar gyfer Excel

Os oes gennych Kutools ar gyfer Excel, Gyda'i Anfon E-byst nodwedd, gallwch chi anfon e-byst wedi'u personoli yn gyflym at dderbynwyr lluosog gyda gwahanol atodiadau yn ôl yr angen.

Kutools ar gyfer Excel : gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. 

Ar ôl gosod Kutools ar gyfer Excel, gwnewch fel hyn:

1. Cliciwch Kutools Byd Gwaith > Anfon E-byst, gweler y screenshot:

2. Yn y Anfon Emials blwch deialog, dewiswch yr ystod ddata rydych chi am ei defnyddio, ac yna nodwch gyfeiriadau, atodiadau a phwnc y derbynnydd yn ôl yr angen, gweler y screenshot:

doc anfon e-byst wedi'u personoli 9

3. Yn y blwch golygu, mewnosodwch yr enwau cyfarch unigol, dewiswch Enw o'r gwymplen, ac yna cliciwch Mewnosod Deiliad Lle i fewnosod yr enwau yn y neges, gweler y screenshot:

doc anfon e-byst wedi'u personoli 9

4. Yna teipiwch gorff eich neges yn y blwch yn ôl yr angen, gweler y screenshot:

doc anfon e-byst wedi'u personoli 9

5. Ar ôl gorffen y corff e-bost, dewiswch y modd anfon fel y dymunwch, gallwch anfon trwy ddefnyddio Outlook neu'ch gweinydd penodedig, gweler y sgrinlun:

doc anfon e-byst wedi'u personoli 9

Nodyn: Os ydych chi am ddefnyddio gweinydd arall, cliciwch Gosodiadau Gweinydd Allanol i osod y modd anfon at eich un chi, gweler screesnhot:

doc anfon e-byst wedi'u personoli 9

6. O'r diwedd, cliciwch anfon botwm i anfon yr e-byst, ar ôl ei gwblhau, bydd blwch prydlon yn popio allan i'ch atgoffa'r statws anfon. gweler y sgrinlun:

doc anfon e-byst wedi'u personoli 9

Cliciwch Dadlwythwch a threial am ddim Kutools ar gyfer Excel Nawr !


Demo: Anfon e-byst torfol wedi'u personoli i restr o Excel trwy Outlook

Kutools ar gyfer Excel: gyda mwy na 300 o ychwanegiadau Excel defnyddiol, am ddim i geisio heb unrhyw gyfyngiad mewn 30 diwrnod. Dadlwythwch a threial am ddim Nawr!

Erthygl gysylltiedig:

Sut i anfon e-bost at dderbynwyr lluosog mewn rhestr gan Excel trwy Outlook?

Offer Cynhyrchiant Swyddfa Gorau

Nodweddion Poblogaidd: Darganfod, Amlygu neu Adnabod Dyblygiadau   |  Dileu Rhesi Gwag   |  Cyfuno Colofnau neu Gelloedd heb Colli Data   |   Rownd heb Fformiwla ...
Super-edrych: VLookup Meini Prawf Lluosog    VLookup Gwerth Lluosog  |   VLookup Ar Draws Taflenni Lluosog   |   Edrych Niwlog ....
Rhestr gwympo Uwch: Creu Rhestr Gollwng yn Gyflym   |  Rhestr Gollwng Dibynnol   |  Rhestr Gollwng Aml-ddewis ....
Rheolwr Colofn: Ychwanegu Nifer Penodol o Golofnau  |  Symud Colofnau  |  Toglo Statws Gwelededd Colofnau Cudd  |  Cymharwch Ystodau a Cholofnau ...
Nodweddion dan Sylw: Ffocws ar y Grid   |  Golwg Dylunio   |   Bar Fformiwla Mawr    Rheolwr Llyfr Gwaith a Thaflen   |  Llyfrgell Adnoddau (Testun Auto)   |  Dewiswr Dyddiad   |  Cyfuno Taflenni Gwaith   |  Amgryptio/Dadgryptio Celloedd    Anfon E-byst trwy Restr   |  Hidlo Super   |   Hidlo Arbennig (hidlo mewn print trwm/italig/strikethrough...) ...
15 Set Offer Gorau12 Testun offer (Ychwanegu Testun, Dileu Cymeriadau,...)   |   50 + Siart Mathau (Siart Gantt,...)   |   40+ Ymarferol Fformiwlâu (Cyfrifwch oedran yn seiliedig ar ben-blwydd,...)   |   19 mewnosod offer (Mewnosod Cod QR, Mewnosod Llun o'r Llwybr,...)   |   12 Trosi offer (Rhifau i Eiriau, Trosi arian cyfred,...)   |   7 Uno a Hollti offer (Rhesi Cyfuno Uwch, Celloedd Hollt,...)   |   ... a mwy

Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser.  Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...

tab kte 201905


Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
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