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.
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
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:
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:
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:
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 «».
(2.) Ewch ymlaen i deipio'ch neges a mewnosodwch y Cod Cofrestru i mewn i'r man lle mae angen, gweler y screenshot:
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:
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.
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! |
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:
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.
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:
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:
4. Yna teipiwch gorff eich neges yn y blwch yn ôl yr angen, gweler y screenshot:
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:
Nodyn: Os ydych chi am ddefnyddio gweinydd arall, cliciwch Gosodiadau Gweinydd Allanol i osod y modd anfon at eich un chi, gweler screesnhot:
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:
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
Erthygl gysylltiedig:
Sut i anfon e-bost at dderbynwyr lluosog mewn rhestr gan Excel trwy Outlook?
Offer Cynhyrchiant Swyddfa Gorau
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...
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!