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

Conas mais ríomhphoist pearsantaithe a sheoladh chuig liosta ó Excel trí Outlook?

Mar shampla, tá an raon sonraí seo a leanas agam i mbileog oibre ina bhfuil Ainm, Seoladh Ríomhphoist, colúin Chód Clárúcháin, agus anois, ba mhaith liom teachtaireacht a sheoladh le beannacht pearsantaithe agus a gCód Clárúcháin féin chuig na Seoltaí Ríomhphoist scartha i gcolún A. Chun an fhadhb seo a réiteach, d’fhéadfadh na modhanna seo a leanas cabhrú leat.

seol ríomhphoist ríomhphoist pearsantaithe 1

Seol mais-ríomhphoist pearsantaithe chuig liosta ó Excel le feidhm Mail Merge

Seol mais-ríomhphoist pearsantaithe chuig liosta ó Excel le cód VBA

Seol mais-ríomhphoist pearsantaithe chuig liosta le ceangaltáin éagsúla trí Kutools a úsáid le haghaidh Excel


mboilgeog cheart gorm saighead Seol mais-ríomhphoist pearsantaithe chuig liosta ó Excel le feidhm Mail Merge

Leis na Briathra Mail Merge feidhm, is féidir leat an post seo a chríochnú go tapa agus go héasca, déan leis an gcéim ar chéim seo a leanas:

1. Seoladh doiciméad nua bán Word, agus ansin cliceáil mailings > Roghnaigh Faighteoirí > Úsáid Liosta Reatha, féach ar an scáileán:

seol ríomhphoist ríomhphoist pearsantaithe 2

2. Sa an Roghnaigh Foinse Sonraí fhuinneog, roghnaigh an leabhar oibre a chuimsíonn an raon sonraí a theastaíonn uait a úsáid, agus cliceáil Oscail cnaipe, féach ar an scáileán:

seol ríomhphoist ríomhphoist pearsantaithe 3

3. Sa teacht Roghnaigh Tábla bosca dialóige, roghnaigh an bhileog oibre leis an raon sonraí atá uait, agus ansin cliceáil OK cnaipe, féach ar an scáileán:

seol ríomhphoist ríomhphoist pearsantaithe 4

4. Agus tá príomhcháipéis na teachtaireachta ríomhphoist agus do liosta seoltaí ceangailte le chéile, anois, is féidir leat an teachtaireacht téacs a chur in eagar agus áititheoirí a chur leis a léiríonn cá mbeidh an fhaisnéis uathúil le feiceáil i ngach teachtaireacht.

(1.) Chun a n-ainm beannachta aonair a chur isteach, cliceáil mailings > Cuir isteach Merge Field > Ainm, tá an t-ainm pearsantaithe curtha isteach sa teachtaireacht, agus tá ainm na páirce mórthimpeall air «».

seol ríomhphoist ríomhphoist pearsantaithe 5

(2.) Téigh ar do theachtaireacht a chlóscríobh agus cuir isteach an Cód Clárúcháin isteach san áit a bhfuil sé uait, féach an scáileán:

seol ríomhphoist ríomhphoist pearsantaithe 6

5. Tar éis duit an teachtaireacht a chumadh, is féidir leat cliceáil Torthaí Réamhamhairc faoi ​​na Ríomhphoist cluaisín chun réamhamharc a dhéanamh ar theachtaireachtaí ríomhphoist agus athruithe a dhéanamh sula ndéanann tú an cumasc i ndáiríre.

6. Tar éis a chinntiú nach bhfuil aon fhadhb ann, is féidir leat na R-phoist a sheoladh chuig na faighteoirí ar leithligh, cliceáil le do thoil mailings > Críochnaigh & Cumaisc > Seol Teachtaireacht Ríomhphoist, féach ar an scáileán:

seol ríomhphoist ríomhphoist pearsantaithe 7

7. Ansin sa popped amach Cumaisc le R-phost bosca dialóige, déan na hoibríochtaí seo a leanas:

(1.) Ón Chun liosta anuas, roghnaigh le do thoil Seoladh ríomhphoist colún;

(2.) Is féidir leat an t-ábhar a chlóscríobh isteach sa ábhar bosca téacs líne;

(3.) Ón Seol taifid alt, roghnaigh Gach.

seol ríomhphoist ríomhphoist pearsantaithe 8

8. Agus ansin cliceáil OK, seoltar na ríomhphoist chuig faighteoirí ar leithligh lena gcód cláraithe féin ag an am céanna, tar éis duit na ríomhphoist a sheoladh, is féidir leat dul chuig do Outlook chun a chinntiú go bhfuil na ríomhphoist seolta go rathúil.


Seol ríomhphoist pearsantaithe chuig faighteoirí iolracha le ceangaltáin éagsúla:

Le Kutools le haghaidh Excel's Seol Ríomhphost gné, is féidir leat ríomhphoist phearsantaithe a sheoladh go tapa chuig faighteoirí iolracha le ceangaltáin éagsúla ó Excel trí Outlook de réir mar is gá duit. Ag an am céanna, is féidir leat CC nó Bcc na teachtaireachtaí chuig duine ar leith freisin.       Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!

seol ríomhphoist ríomhphoist pearsantaithe 18 1


mboilgeog cheart gorm saighead Seol mais-ríomhphoist pearsantaithe chuig liosta ó Excel le cód VBA

Seachas an fheidhm Cumaisc Ríomhphoist, is féidir leis an gcód VBA seo a leanas fabhar a dhéanamh duit, déan é seo le do thoil:

1. Coinnigh síos an ALT + F11 eochracha, agus osclaíonn sé an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Cliceáil Ionsáigh > Modúil, agus greamaigh an cód seo a leanas sa Modúil Fuinneog.

Cód VBA: Seol mais-ríomhphoist pearsantaithe chuig liosta ó 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. Ansin brúigh F5 eochair chun an cód seo a rith, agus tiocfaidh bosca pras amach le cur i gcuimhne duit an raon sonraí a theastaíonn uait a úsáid a roghnú, féach an scáileán:

seol ríomhphoist ríomhphoist pearsantaithe 9

4. Agus ansin cliceáil OK cnaipe, seolfar na ríomhphoist chuig seoltaí ar leithligh lena gcód cláraithe aonair ceann ar cheann, tar éis duit na ríomhphoist a sheoladh, is féidir leat dul chuig do Outlook chun a chinntiú go bhfuil na ríomhphoist seolta go rathúil.

nótaí: Sa chód thuas, is féidir leat an teachtaireacht ábhair nó coirp a athrú go do riachtanas.


mboilgeog cheart gorm saighead Seol mais-ríomhphoist pearsantaithe chuig liosta le ceangaltáin éagsúla trí Kutools a úsáid le haghaidh Excel

Má tá tú Kutools le haghaidh Excel, Lena Seol Ríomhphost gné, is féidir leat ríomhphoist phearsantaithe a sheoladh go tapa chuig faighteoirí iolracha le ceangaltáin éagsúla de réir mar is gá duit.

Kutools le haghaidh Excel : le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. 

Tar éis a shuiteáil Kutools le haghaidh Excel, déan mar seo le do thoil:

1. Cliceáil Kutools Plus > Seol Ríomhphost, féach ar an scáileán:

2. Sa an Seol Emials bosca dialóige, roghnaigh an raon sonraí a theastaíonn uait a úsáid, agus ansin sonraigh seoltaí, ceangaltáin agus ábhar an fhaighteora de réir mar a theastaíonn uait, féach an scáileán:

seol ríomhphoist ríomhphoist pearsantaithe 9

3. Sa bhosca eagar, cuir isteach na hainmneacha beannachta aonair, roghnaigh le do thoil Ainm ón liosta anuas, agus ansin cliceáil Cuir Áititheoir Áit isteach chun na hainmneacha a chur isteach sa teachtaireacht, féach an scáileán:

seol ríomhphoist ríomhphoist pearsantaithe 9

4. Ansin clóscríobh do chorp teachtaireachta sa bhosca de réir mar a theastaíonn uait, féach an pictiúr:

seol ríomhphoist ríomhphoist pearsantaithe 9

5. Tar éis duit an comhlacht ríomhphoist a chríochnú, roghnaigh an modh seolta mar is mian leat, is féidir leat a sheoladh trí Outlook nó do fhreastalaí sonraithe a úsáid, féach screesnhot:

seol ríomhphoist ríomhphoist pearsantaithe 9

nótaí: Más mian leat freastalaí eile a úsáid, cliceáil Socruithe Freastalaí Amach chun an modh seolta a shocrú leat féin, féach screesnhot:

seol ríomhphoist ríomhphoist pearsantaithe 9

6. Faoi dheireadh, cliceáil Seol cnaipe chun na ríomhphoist a sheoladh, tar éis é a chomhlánú, tiocfaidh bosca pras amach chun an stádas seolta a mheabhrú duit. féach screesnhot:

seol ríomhphoist ríomhphoist pearsantaithe 9

Cliceáil Íoslódáil agus triail saor in aisce Kutools le haghaidh Excel Now!


Taispeántas: Seol ríomhphoist mais phearsantaithe chuig liosta ó Excel trí Outlook

Kutools le haghaidh Excel: le níos mó ná 300 breiseán áisiúil Excel, saor in aisce le triail gan aon teorannú i 30 lá. Íoslódáil agus triail saor in aisce Anois!

Airteagal gaolmhar:

Conas ríomhphost a sheoladh chuig iliomad faighteoirí i liosta ó Excel trí Outlook?


Na hUirlisí Táirgiúlachta Oifige is Fearr

Réitíonn Kutools for Excel an chuid is mó de do chuid Fadhbanna, agus Méadaíonn sé do Tháirgiúlacht 80%

  • Athúsáid: Cuir isteach go tapa foirmlí casta, cairteacha agus aon rud a d'úsáid tú roimhe seo; Cealla a Chriptiú le pasfhocal; Cruthaigh Liosta Ríomhphoist agus seol ríomhphoist ...
  • Barra Foirmle Super (cuir línte iolracha téacs agus foirmle in eagar go héasca); Leagan Amach Léitheoireachta (líon mór cealla a léamh agus a chur in eagar go héasca); Greamaigh go dtí an Raon Scagtha...
  • Cumaisc Cealla / Sraitheanna / Colúin gan Sonraí a chailleadh; Ábhar Cealla Scoilt; Comhcheangail Sraitheanna / Colúin Dúblacha... Cill Dúblach a Chosc; Déan comparáid idir Ranganna...
  • Roghnaigh Dúblach nó Uathúil Sraitheanna; Roghnaigh Blank Rows (tá na cealla uile folamh); Aimsigh Super agus Fuzzy Aimsigh i go leor Leabhar Oibre; Roghnaigh go randamach ...
  • Cóip Díreach Cealla Il gan tagairt fhoirmle a athrú; Tagairtí Cruthaigh Auto chuig Bileoga Il; Cuir Urchair isteach, Boscaí Seiceála agus go leor eile ...
  • Sliocht Téacs, Cuir Téacs leis, Bain de réir Poist, Bain Spás; Subtotals Paging a chruthú agus a phriontáil; Tiontaigh Idir Ábhar Cealla agus Tráchtanna...
  • Scagaire Super (scéimeanna scagaire a shábháil agus a chur i bhfeidhm ar bhileoga eile); Ard-Sórtáil de réir míosa / seachtaine / lae, minicíocht agus níos mó; Scagaire Speisialta le cló trom, iodálach ...
  • Comhcheangail Leabhair Oibre agus Bileoga Oibre; Cumaisc Táblaí bunaithe ar eochaircholúin; Roinn Sonraí i Ilbhileoga; Baisc Tiontaigh xls, xlsx agus PDF...
  • Níos mó ná 300 gné chumhachtach. Tacaíonn Office / Excel 2007-2021 agus 365. Tacaíonn sé le gach teanga. Imscaradh éasca i d'fhiontar nó d'eagraíocht. Gnéithe iomlána triail saor in aisce 30-lá. Ráthaíocht airgid ar ais 60-lá.
cluaisín kte 201905

Tugann Tab Oifige comhéadan Tabbed chuig Office, agus Déan Do Obair i bhfad Níos Éasca

  • Cumasaigh eagarthóireacht agus léamh tabbed i Word, Excel, PowerPoint, Foilsitheoir, Rochtain, Visio agus Tionscadal.
  • Oscail agus cruthaigh cáipéisí iolracha i gcluaisíní nua den fhuinneog chéanna, seachas i bhfuinneoga nua.
  • Méadaíonn do tháirgiúlacht 50%, agus laghdaíonn sé na céadta cad a tharlaíonn nuair luch duit gach lá!
bun officetab
Sórtáil tuairimí de réir
Comments (47)
Níl rátálacha ar bith fós. Bí ar an gcéad duine a rátáil!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
D'oibrigh an cód seo go han-mhaith, go raibh maith agat as sin. Ach níl ach fadhbanna beaga agam, táim ag iarraidh an cód a athrú chun na cealla a theastaíonn uaim chun na ríomhphoist a ghlacadh agus é a sheoladh mar gheall ar an mbealach a chruthaigh mé mo chomhad excel. Ba mhaith liom an bosca roghnaithe a athrú le haghaidh sraith chinnte de chealla. Sampla: deisigh go mbeidh mo shonraí go léir idir A2:C6 agus mar sin nuair a rithim an macra ní gá dom é a roghnú arís. Go raibh míle maith agat as gach rud a mhínigh tú thuas
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
An féidir leat an cód a mhodhnú chun comhaid iolracha a cheangal sa ríomhphost? Ba mhór an chabhair é. Go raibh maith agat roimh ré.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
an féidir cód a chur leis ionas go dtarraingeoidh sé isteach mo ghnáthshíniú ríomhphoist freisin? freisin, nuair a roghnaíonn mé mo raon ríomhphoist, tá mo scarbhileog Excel scagtha agam, ach nuair a ritheann mé an macra, tarraingíonn sé fós sna sraitheanna folaithe freisin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom eolas a fháil faoi seo freisin!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas cc a chur leis an gcód thuas
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Slí iontach

Ní gá dom ach ceist a chur ort faoin bhféidearthacht an t-ábhar a athrú gach uair bunaithe ar ríomhphost??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Aziz,
Nuair a chuireann tú an Kutools le haghaidh Excel i bhfeidhm, is féidir leis cabhrú leat na hábhair atá bunaithe ar na luachanna cille a chur isteach, ní mór duit ach an ceanntásc colún ábhair a roghnú sa bhosca dialóg mar a leanas a thaispeántar scáileáin:

Bain triail as, le do thoil, tá súil gur féidir leis cabhrú leat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit Skyyang,

Bhí mé ag iarraidh agus ag iarraidh mo shíniú ríomhphoist a fháil ach ní féidir liom é a fháil i gceart! An bhfuil beagán cód agat is féidir liom a chur leis chun é seo a dhéanamh?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Post madness é seo, tá an ceann seo falsa agus ní chreideann an t-ábhar
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit a chara,
tá sé seo iontach, tá cabhair amháin ag teastáil uaim chun comhaid pdf éagsúla a cheangal le ríomhphost difriúil gach uair.
an féidir le haon duine cabhrú liom le do thoil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Skyyang,
Ní mór dom comhad pdf difriúil a cheangal le haghaidh gach ríomhphost. an féidir leat cabhrú le do thoil??
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Arvind,
Is féidir leis an Kutools cabhrú leat il ceangaltáin éagsúla a chur leis agus tú ag seoladh ríomhphoist.
Ar dtús ba chóir duit cosán na gceangaltán a chur isteach sna cealla, agus ansin an Kutools a chur i bhfeidhm, féach ar an scáileán scáileáin seo a leanas:
Tá súil agam gur féidir leis cabhrú leat, go raibh maith agat!
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Skyyang,
D'úsáid mé do chód thíos chun ríomhphost a sheoladh agus tá sé ag obair go foirfe, an bhfuil aon rud is féidir leat cabhrú liom a mhodhnú i gcód chun ceangaltáin pdf a sheoladh chomh maith.
Caithfidh mé níos mó ná 100 ríomhphost a sheoladh agus mar sin tá sé deacair an comhad a cheangal gach uair le scor. an bhfuil Kutools ag obair de réir cosán ar leith agus an ríomhphost a sheoladh go huathoibríoch?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
hug,
an féidir leat cabhrú liom le feidhm attachment.add? le do chód VBA thuas ní mór dom ceangaltán a sheoladh.
ní féidir liom Kutools a úsáid :(
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
conas daoine cc i seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Cad a tharlaíonn má tá sonraí agam do go leor custaiméirí agus go bhfuil níos mó ná 1 sonraí ag roinnt custaiméirí ... agus níl mé ag iarraidh ríomhphoist ar leith a sheoladh chuig na custaiméirí, ach b'fhéidir é a sheoladh i bhformáid tábla sa ríomhphost. Conas is féidir liom 1 ríomhphost a sheoladh chuig custaiméir.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Hi Steven, an bhfuair tú bealach chun é seo a dhéanamh. Is féidir linn cabhrú leat le tairseach gréasáin simplí ar líne
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, ar réitigh tú é?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom a fháil amach conas é a dhéanamh. An féidir leat insint dom?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Go raibh maith agat !!

Ach tá mé ag iarraidh an tástáil a dhéanamh agus níl aon rud ag seoladh amach chuig an emai. Níl aon teachtaireacht earráide ann freisin.. An mbeidh a fhios agam cad a tharla?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Tá liosta seoltaí ríomhphoist agam in excel ar gá dom ríomhphoist a sheoladh chucu Tá an t-ábhar agus an corp i gcealla seachas an seoladh ríomhphoist agus tá an script thíos agam ach ní mór dom 100 ríomhphost a sheoladh in aghaidh 1 uair an chloig conas is féidir liom do thacaíocht a shásamh

Fo-sheoladh()
Dim i Mar Slánuimhir, Mail_Object, Email_Subject, o Mar mhalairt, ó chlé go deas
lr = Cealla(Sraitheanna.Count, "A").Deireadh(xlUp).Row
Socraigh Mail_Object = CreateObject ("Outlook.Application")
Chun i = 2 Chun lr
Le Mail_Object.CreateItem(o)
.Subject = Raon ("B" & i).Luach
.To = Raon ("A" & i).Luach

.Body = Raon ("C" & i).Luach
.attachments.Add (Bileoga("Bileog1").Range("H" & i).Text)
.attachments.Add (Bileoga("Bileog1").Range("I" & i).Text)
.attachments.Add (Bileoga("Bileog1").Range("J" & i).Text)
.attachments.Add (Bileoga("Bileog1").Range("K" & i).Text)
.Seol

'.display' taispeáint a dhíchumasú agus a chumas a sheoladh a sheoladh go huathoibríoch
Deireadh Le
Ar Aghaidh i
64 msgstr "D'éirigh le seoladh an ríomhphoist", XNUMX
Application.DisplayAlerts = Bréagach
Socraigh Mail_Object = Ní dhéanfaidh aon ní
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Hiba,
Ár Kutools le haghaidh Excel's Seol Ríomhphost Is féidir leat cabhrú leat d'fhadhb a réiteach. Le do thoil, socraigh na coinníollacha mar a thaispeántar an scáileán seo a leanas:
Leis an ngné seo, is féidir leat an ghné CC, BCC a chur i bhfeidhm freisin, agus is féidir leat ceangaltáin iolracha a chur isteach freisin.
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
HIi riarthóir


apakah modh ini bisa di lakukan pada word 2007 soalnya saya coba lakukan i gcomhad pdf nya tdk terkirim .. deireadh thiar thall
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ar chúis éigin tá sé ag an gcód seo áit a seolann sé gach ríomhphost eile ar an liosta. An bhfuil cúis ann nach seolfaidh sé gach ceann díobh? Chóipeáil mé an cód a bhí thuas go díreach agus níor athraigh mé rud ar bith
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn cód VBA go maith, go raibh maith agat, ach conas Cc a chur leis? Rinne mé iarracht agus theip orm ...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Oibríonn cód VBA go maith, go raibh maith agat, ach conas Cc a chur leis? Bhain mé triail as le:


Dim xCc Mar Teaghrán
ansin
xCc = xRg.Cells(i, 9) (tá an seoladh ar an 9ú colún)


agus theip air...
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit, Jean,

Chun d’fhadhb a réiteach, cuir an cód thíos i bhfeidhm le do thoil: (Nóta: Ba cheart duit colún CC a chur i gColún C)

#Má VBA7 Agus Win64 Ansin
Dearbhú Príobháideach Feidhm PtrSafe ShellExecute Lib "shell32.dll" Ailias "ShellExecuteA" ( _
ByVal hwnd As LongPtr, ByVal lpOperation As Teaghrán, _
ByVal lpFile Mar Theaghrán, ByVal lp Paraiméadair Mar Theaghrán, Eolaire lp ByVal Mar Teaghrán, _
ByVal nShowCmd Chomh fada) As LongPtr
#eile
Feidhm Dhearbhaigh Príobháideach ShellExecute Lib "shell32.dll" Ailias "ShellExecuteA" ( _
ByVal seod Chomh Fada, ByVal lpOperation As Teaghrán, _
ByVal lpFile Mar Theaghrán, ByVal lp Paraiméadair Mar Theaghrán, Eolaire lp ByVal Mar Teaghrán, _
ByVal nShowCmd Chomh fada) Chomh fada
#Críoch Más rud é
Fosheoladh Ríomhphoist()
Dim xR-phost Mar Teaghrán
Dim xSubj Mar Teaghrán
Dim xMsg Mar Teaghrán
Dim xURL Mar Teaghrán
Dim i Mar Slánuimhir
Dim k Mar Dúbailte
Dim xCell Mar Raon
Dim xRg Mar Raon
Dim xTxt Mar Teaghrán
Dim xCC Mar Teaghrán
Ar Lean Earráid Aghaidh
xTxt = ActiveWindow.RangeSelection.Address
Socraigh xRg = Application.InputBox("Roghnaigh an raon sonraí:"", "Kutools for Excel", xTxt , , , , , 8)
Mura bhfuil xRg ar bith ansin Scoir Fo
Má xRg.Columns.Count <> 4 Ansin
MsgBox " Earráid formáide réigiúnach, seiceáil le do thoil", , "Kutools le haghaidh Excel"
Fo-Scoir
Deireadh Má
Le haghaidh i = 1 Go xRg.Rows.Count
xEmail = xRg.Cells(i, 2)
xCC = xRg.Cealla(i, 3)
xSubj = "Do Chód Clárúcháin"
xMsg=""
xMsg = xMsg & "A chara" &xRg.Cells(i, 1) &", " & vbCrLf & vbCrLf
xMsg = xMsg & " Seo é do Chód Clárúcháin "
xMsg = xMsg & xRg.Cells(i, 4).Text &"." & vbCrLf & vbCrLf
xMsg = xMsg & " bain triail as le do thoil, agus áthas orainn do chuid aiseolais a fháil!" & vbCrLf
xMsg = xMsg & "Skyyang"
xSubj = Feidhmchlár.Bileog OibreFunction.Substitute(xSubj, " ", "%20")
xMsg = Feidhmchlár.WorksheetFunction.Substitute(xMsg," ", "%20")
xMsg = Feidhmchlár.WorksheetFunction.Substitute(xMsg, vbCrLf, "%0D%0A")
xURL = "mailto:" &xEmail &"?cc="&xCC&"&subject="&xSubj&"&body="&xMsg
ShellExecute 0&, vbNullString, xURL, vbNullString, vbNullString, vbNormalFocus
Feidhmchlár.Fan (Anois + Luach Ama ("0:00:02"))
Feidhmchlár.SendKeys "%s"
Ar Aghaidh
Fo Deireadh
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Bainim úsáid as an gcód VBA thuasluaite faoi "Seol Ríomhphoist Aifrinn Pearsantaithe Chuig Liosta Ó Excel le Cód VBA". Theastaigh uaim a fháil amach an bhféadfainn ríomhphost a sheoladh chuig daoine áirithe ar gá fógra a thabhairt dóibh bunaithe ar Excel ag rá liom meabhrúcháin a sheoladh chucu siúd a bhfuil conarthaí atá le teacht ag dul in éag? Ní féidir liom barr feabhais a fháil chun na ríomhphoist a sheoladh amach agus tá a fhios agam mar gheall ar an gcód féin. An féidir le duine cabhrú liom an cheist seo a réiteach le do thoil?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Ba mhaith liom na ríomhphoist a sheoladh le líne ábhair uathúil, conas is féidir liom é sin a dhéanamh leis an VBA seo?
Rinne an modhnóir ar an láithreán an trácht seo a íoslaghdú
Dia duit gach duine!

Tá liosta ríomhphoist agam i mbileog amháin & an dréacht ríomhphoist i gceann eile.
Teastaíonn cód uaim chun an dréacht ríomhphoist a sheoladh go huathoibríoch ó bhileog 2 go dtí gach 5 bhall ar an liosta atá ar fáil i mbileog 1.
Nuair a sheoltar na chéad 5 cinn, ba cheart don chód iad a chlibeáil mar "Seolta" i gcolún tiomnaithe nua & ansin fanacht 60 soicind roimh an chéad sraith eile de 5 ríomhphost a sheoladh.
Ba cheart go leanfadh an cód go dtí deireadh an liosta iomlán.

Is féidir leis an gcód outlook a úsáid chun na ríomhphoist a sheoladh amach ón bpróifíl réamhshocraithe in outlook.

Le do thoil cabhrú leat.

Cuir in iúl dom ar eagla na heagla má theastaíonn tuilleadh soiléirithe uait
Níl aon tráchtanna curtha suas anseo go fóill
Luchtaigh More
Fág do chuid tuairimí
Ag postáil mar Aoi
×
Ráta an post seo:
0   Carachtair
Suímh Molta

Lean orainn

Cóipcheart © 2009 - www.extendoffice.com. | Gach ceart ar cosaint. Cumhachtaithe ag ExtendOffice. | léarscáil an tSuímh
Is trádmharcanna nó trádmharcanna cláraithe de chuid Microsoft Corporation sna Stáit Aontaithe agus / nó i dtíortha eile iad lógó Office agus Office.
Cosanta ag Sectigo SSL