Note: The other languages of the website are Google-translated. Back to English

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 wedi'u personoli 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 All.

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 threialwch am ddim Kutools ar gyfer Excel Now!

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 wedi'u personoli 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 Lawrlwytho a threial am ddim Kutools ar gyfer Excel Now!


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?


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Swyddfa / Excel 2007-2019 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a 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!
gwaelod officetab
sylwadau (45)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gweithiodd y cod hwn yn dda iawn, diolch yn fawr o hynny. Ond dim ond ychydig o broblemau sydd gen i, rydw i'n ceisio newid y cod i rag-benderfynu ar y celloedd rydw i eisiau cymryd yr e-byst a'u hanfon oherwydd y ffordd y creais fy ffeil excel. Hoffwn newid y blwch dewis ar gyfer amrywiaeth penderfynol o gelloedd. Enghraifft: trwsio fy holl ddata fydd rhwng A2:C6 felly pan fyddaf yn rhedeg y macro nid oes angen i mi ddewis eto. Diolch yn Fawr Iawn am bopeth a eglurwyd gennych uchod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Allwch chi addasu'r cod i atodi sawl ffeil mewn e-bost? Byddai'n help mawr. Diolch ymlaen llaw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
a yw'n bosibl ychwanegu cod fel ei fod hefyd yn tynnu fy llofnod e-bost arferol i mewn? hefyd, wrth ddewis fy ystod i e-bost, mae fy nhaenlen excel wedi'i hidlo, ond pan fyddaf yn rhedeg y macro, mae'n dal i dynnu'r rhesi cudd hefyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn wybod am hyn hefyd!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i ychwanegu cc yn y cod uchod
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ffordd wych

Mae angen i mi ofyn ichi am y posibilrwydd o newid y pwnc bob tro yn seiliedig ar e-bost ??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Aziz,
Pan fyddwch chi'n cymhwyso'r Kutools ar gyfer Excel, gall eich helpu i fewnosod y pynciau yn seiliedig ar y gwerthoedd celloedd, does ond angen i chi ddewis y pennawd colofn pwnc yn y blwch deialog fel y dangosir y sgrinlun a ganlyn:

Rhowch gynnig arni, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Skyyang,

Rydw i wedi bod yn ceisio ac yn ceisio cael fy llofnod e-bost i ddod i fyny ond nid yn ymddangos i gael pethau'n iawn! Oes gennych chi ychydig o god y gallaf ei ychwanegu i wneud i hyn ddigwydd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Post gwallgofrwydd yw hwn, mae'r un hwn yn ffug a ddim yn credu'r cynnwys hwn
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo ffrind,
mae hyn yn wych, mae angen un help arnaf i atodi gwahanol ffeil pdf i wahanol e-bost bob tro.
all unrhyw un fy helpu os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo Skyyang,
Mae angen i mi atodi ffeil pdf gwahanol ar gyfer pob post. allwch chi helpu os gwelwch yn dda??
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Arvind,
Gall y Kutools eich helpu i ychwanegu sawl atodiad gwahanol wrth anfon e-byst.
Yn gyntaf, dylech fewnosod llwybr yr atodiadau yn y celloedd, ac yna cymhwyso'r Kutools, edrychwch ar y sgrin ganlynol:
Gobeithio y gall eich helpu, diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
helo Skyyang,
Defnyddiais eich cod isod i anfon post ac mae'n gweithio'n berffaith, a oes unrhyw beth y gallwch chi fy helpu i addasu'r cod ar gyfer anfon atodiadau pdf ymlaen.
Mae angen i mi anfon mwy na 100 o negeseuon e-bost felly mae'n anodd atodi ffeil bob tro i roi'r gorau iddi. a yw Kutools yn gweithio yn unol â'r llwybr penodol ac yn anfon post yn awtomatig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
hey,
gallwch chi fy helpu gyda swyddogaeth atodiad.add? gyda'ch cod VBA uchod mae angen i mi anfon atodiad.
Ni allaf ddefnyddio Kutools :(
Lleihawyd y sylw hwn gan y safonwr ar y wefan
sut i cc pobl yn hyn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
beth os oes gen i ddata ar gyfer llawer o gwsmeriaid a bod gan rai cwsmeriaid fwy nag 1 o ddata ... a dydw i ddim eisiau anfon post ar wahân i'r cwsmeriaid, ond efallai ei anfon mewn fformat tabl yn yr e-bost. Sut alla i anfon 1 e-bost yn unig at gwsmer.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Steven, a wnaethoch chi ddod o hyd i ffordd i gyflawni hyn. Gallwn eich helpu gyda phorth gwe ar-lein syml
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, A wnaethoch chi ei ddatrys?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am wybod sut i'w wneud. Allwch chi ddweud wrthyf?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Diolch !!

Ond dwi wedi ceisio gwneud y prawf a does dim byd yn anfon at yr emai. Hefyd dim neges gwall.. A gaf i wybod beth ddigwyddodd?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae gen i restr o gyfeiriadau e-bost yn excel y mae angen i mi anfon e-byst atynt Mae'r pwnc a'r corff mewn celloedd ar wahân i'r cyfeiriad e-bost ac mae gennyf y sgript isod ond mae angen i mi anfon 100 e-bost yr 1 awr sut y gallaf blesio'ch cefnogaeth

Is AnfonEm()
Dim i Fel Cyfanrif, Mail_Object, E-bost_Pwnc, o Fel Amrywiad, i'r chwith i'r chwith
lr = Celloedd(Rhesi.Cyfrif, "A").Diwedd(xlUp).Rhes
Gosod Mail_Object = CreateObject ("Outlook.Application")
Am i = 2 I lr
Gyda Mail_Object.CreateItem(o)
.Subject = Ystod ("B" & i).Gwerth
.To = Ystod ("A" & i).Gwerth

.Corff = Ystod ("C" & i).Gwerth
.attachments.Add (Taflenni("Taflen1").Range("H" & i).Testun)
.attachments.Add (Taflenni("Taflen1").Range("I" & i).Testun)
.attachments.Add (Taflenni("Taflen1").Range("J" & i).Testun)
.attachments.Add (Taflenni("Taflen1").Range("K" & i).Testun)
.Anfon

'.display' analluogi arddangos a galluogi anfon i anfon yn awtomatig
Diwedd Gyda
Nesaf i
64 msgstr "Anfonwyd e-bost yn llwyddiannus", XNUMX
Application.DisplayAlerts = Gau
Gosod Mail_Object = Dim byd
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, hiba,
Gall ein Kutools ar gyfer Excel's Anfon E-byst eich helpu i ddatrys eich problem. Gosodwch yr amodau fel y sgrinlun a ddangosir:
Gyda'r nodwedd hon, gallwch hefyd gymhwyso'r nodwedd CC, BCC, a gallwch chi fewnosod atodiadau lluosog hefyd.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
HIi gweinyddwr


apakah metode ini bisa di lakukan pada word 2007 soalnya saya coba lakukan di ffeil pdf nya tdk terkirim .. terimakasih
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Am ryw reswm mae gan y cod hwn lle mae'n anfon pob e-bost arall yn y rhestr. A oes rheswm pam na fydd yn anfon pob un? Fe wnes i gopïo'r cod a oedd uchod yn uniongyrchol ac ni newidiais unrhyw beth
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae cod VBA yn gweithio'n dda, diolch, ond sut i ychwanegu Cc? Ceisiais a methu ...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Mae cod VBA yn gweithio'n dda, diolch, ond sut i ychwanegu Cc? Ceisiais gyda:


Dim xCc Fel Llinyn
Yna,
xCc = xRg.Cells(i, 9) (mae'r cyfeiriad ar y 9fed golofn)


ac wedi methu...
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Jean,

I ddatrys eich problem, cymhwyswch y cod isod: (Sylwer: Dylech ychwanegu colofn CC yng Ngholofn C)

#Os VBA7 Ac Win64 Yna
Datganiad Preifat Swyddogaeth PtrSafe ShellExecute Lib "shell32.dll" Alias ​​"ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As String, _
ByVal lpFile Fel Llinynnol, ByVal lpParameters Fel Llinynnol, ByVal lpDirectory Fel Llinynnol, _
ByVal nShowCmd Mor Hir) Mor HirPtr
#Arall
Swyddogaeth Datgan Preifat ShellExecute Lib "shell32.dll" Alias ​​"ShellExecuteA" ( _
ByVal hwnd Cyhyd, ByVal lpOperation As String, _
ByVal lpFile Fel Llinynnol, ByVal lpParameters Fel Llinynnol, ByVal lpDirectory Fel Llinynnol, _
ByVal nShowCmd Mor Hir) Cyhyd
#Diwedd Os
Is-anfon e-bost()
Dim xEmail Fel Llinynnol
Dim xSubj Fel Llinyn
Dim xMsg Fel Llinyn
Dim xURL Fel Llinyn
Dim i Fel Cyfanrif
Dim k Fel Dwbl
Dim xCell Fel Ystod
Dim xRg Fel Ystod
Dim xTxt Fel Llinyn
Dim xCC Fel Llinyn
Ar Ail-ddechrau Gwall Nesaf
xTxt = ActiveWindow.RangeSelection.Address
Gosod xRg = Application.InputBox ("Dewiswch yr ystod data:"", "Kutools ar gyfer Excel", xTxt, , , , , 8)
Os yw xRg Yn Ddim Yna Ymadael Is
Os xRg.Columns.Count <> 4 Yna
msgstr " Gwall fformat rhanbarthol, gwiriwch " , , " Kutools for Excel "
Is Allanfa
Gorffennwch Os
Am i = 1 I xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cells(i, 3)
xSubj = "Eich Cod Cofrestru"
xMsg=""
xMsg = xMsg & "Annwyl" &xRg.Cells(i, 1) &", "&vbCrLf & vbCrLf
xMsg = xMsg & " Dyma eich Cod Cofrestru "
xMsg = xMsg &xRg.Cells(i, 4).Text &"." & vbCrLf & vbCrLf
xMsg = xMsg & " rhowch gynnig arni, ac yn falch o gael eich adborth!" & vbCrLf
xMsg = xMsg & "Skyyang"
xSubj = Application.WorksheetFunction.Substitute(xSubj, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, " ", "%20")
xMsg = Application.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = " mailto:" &xEmail & "?cc="&xCC&"&subject="&xSubj&"&body="&xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Cais.Aros (Nawr + Gwerth Amser ("0:00:02"))
Application.SendKeys "%s"
Digwyddiadau
Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi defnyddio'r cod VBA a grybwyllwyd uchod o dan "Anfon E-byst Offeren Personol i Restr O Excel gyda Chod VBA". Roeddwn i eisiau gwybod a allwn anfon e-bost at rai unigolion y mae angen eu hysbysu yn seiliedig ar Excel yn dweud wrthyf am anfon nodiadau atgoffa at y rhai sydd â chontractau sydd ar ddod? Ni allaf gael excel i anfon yr e-byst ac rwy'n gwybod ei fod oherwydd y cod ei hun. A all rhywun fy helpu i ddatrys y mater hwn os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf am anfon yr e-byst gyda llinell bwnc unigryw, sut alla i wneud hynny gyda'r VBA hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi i gyd!

Mae gen i restr o negeseuon e-bost mewn un ddalen a'r drafft e-bost mewn un arall.
Mae angen cod arnaf i anfon y drafft e-bost yn awtomatig o ddalen 2 i bob 5 aelod yn y rhestr a ddarperir ar ddalen 1.
Unwaith y bydd y 5 cyntaf yn cael eu hanfon, dylai'r cod eu tagio fel "Anfonwyd" mewn colofn bwrpasol newydd ac yna aros am 60 eiliad cyn anfon y set nesaf o 5 e-bost.
Dylai'r cod redeg tan ddiwedd y rhestr gyfan.

Gall y cod ddefnyddio outlook i anfon y post o'r proffil rhagosodedig yn outlook.

Os gwelwch yn dda helpu.

Rhowch wybod i mi rhag ofn os oes angen mwy o eglurhad arnoch chi
Nid oes unrhyw sylwadau wedi'u postio yma eto
Llwytho mwy o
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir