Conas síniú Outlook a chur isteach agus ríomhphost á sheoladh in Excel?

Ag glacadh leis gur mhaith leat ríomhphost a sheoladh go díreach in Excel, conas is féidir leat síniú réamhshocraithe Outlook a chur leis an ríomhphost? Soláthraíonn an t-alt seo dhá mhodh chun cabhrú leat síniú Outlook a chur leis agus tú ag seoladh ríomhphoist in Excel.

Cuir an síniú isteach i ríomhphost Outlook agus é á sheoladh ag Excel VBA
Cuir isteach síniú Outlook go héasca agus ríomhphost á sheoladh in Excel le huirlis iontach
Tuilleadh ranganna teagaisc le haghaidh postála in Excel ...

Cuir an síniú isteach i ríomhphost Outlook agus é á sheoladh ag Excel VBA

Mar shampla, tá liosta seoltaí ríomhphoist i mbileog oibre, chun ríomhphoist a sheoladh chuig na seoltaí seo go léir in Excel agus cuir an síniú réamhshocraithe Outlook sna ríomhphoist. Cuir an cód VBA thíos i bhfeidhm le do thoil chun é a bhaint amach.

1. Oscail an bhileog oibre tá an liosta seoltaí ríomhphoist ar mhaith leat ríomhphost a sheoladh chuici, agus ansin brúigh an Eile + F11 eochracha.

2. San oscailt Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúl, agus ansin cóipeáil an méid thíos VBA 2 isteach i bhfuinneog chód an Mhodúil.

3. Anois ní mór duit an .Comhlacht líne i VBA 2 leis an gcód i VBA 1. Tar éis sin, bog an líne .Dráma faoin líne Le xMailOut.

VBA 1: Teimpléad chun ríomhphoist a sheoladh le síniú réamhshocraithe Outlook in Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: Seol r-phost chuig seoltaí ríomhphoist atá sonraithe i gcealla in Excel

Sub SendEmailToAddressInCells()
    Dim xRg As Range
    Dim xRgEach As Range
    Dim xRgVal As String
    Dim xAddress As String
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    On Error Resume Next
    xAddress = ActiveWindow.RangeSelection.Address
    Set xRg = Application.InputBox("Please select email address range", "KuTools For Excel", xAddress, , , , , 8)
    If xRg Is Nothing Then Exit Sub
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
    For Each xRgEach In xRg
        xRgVal = xRgEach.Value
        If xRgVal Like "?*@?*.?*" Then
            Set xMailOut = xOutApp.CreateItem(olMailItem)
            With xMailOut
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Is féidir leis an bpictiúr seo a leanas cabhrú leat na difríochtaí a aimsiú go héasca tar éis duit an cód VBA a athrú.

4. Brúigh an F5 eochair chun an cód a rith. Ansin a Kutools le haghaidh Excel roghnaigh bosca aníos, roghnaigh na seoltaí ríomhphoist a sheolfaidh tú ríomhphoist chucu, agus ansin cliceáil OK.

Ansin cruthaítear ríomhphoist. Is féidir leat a fheiceáil go gcuirtear síniú réamhshocraithe Outlook leis ag deireadh an chomhlachta ríomhphoist.

Leid:

• 1. Féadfaidh tú an comhlacht ríomhphoist a athrú i gcód 1 VBA bunaithe ar do chuid riachtanas.
• 2. Tar éis duit an cód a rith, má thagann bosca dialóige earráide suas le rabhadh nach bhfuil an cineál Sainmhínithe ag an Úsáideoir sainithe, dún an dialóg seo le do thoil, agus ansin téigh chun cliceáil uirlisí > tagairtí sa Microsoft Visual Basic d’Fheidhmchláir fuinneog. San oscailt Tagairtí - VBAProject fuinneog, seiceáil an Leabharlann Réada Microsoft Outlook bosca agus cliceáil OK. Agus ansin rith an cód arís.
  

Cuir isteach síniú Outlook go héasca agus ríomhphost á sheoladh in Excel le huirlis iontach

Más newbie tú i VBA, mol go mór anseo an Seol Ríomhphost fóntais de Kutools le haghaidh Excel duitse. Leis an ngné seo, is féidir leat ríomhphoist a sheoladh go héasca bunaithe ar réimsí áirithe in Excel agus síniú Outlook a chur leo. Déan mar a leanas le do thoil.

Ar dtús, ní mór duit liosta seoltaí a chruthú le réimsí éagsúla a sheolfaidh tú ríomhphoist bunaithe orthu.

Is féidir leat liosta seoltaí a chruthú de láimh de réir mar a theastaíonn uait nó an ghné Cruthaigh Liosta Ríomhphoist a chur i bhfeidhm chun é a chur i gcrích go tapa.

1. cliceáil Kutools Plus > Cruthaigh Liosta Ríomhphoist.

2. Sa Cruthaigh Liosta Ríomhphoist bosca dialóige, sonraigh na réimsí a theastaíonn uait, roghnaigh cá háit ar féidir an liosta a aschur, agus ansin cliceáil ar an OK cnaipe.

3. Anois cruthaítear sampla liosta seoltaí. Toisc gur liosta samplach é, ní mór duit na réimsí a athrú go hábhar áirithe a theastaíonn. (ceadaítear sraitheanna iolracha)

4. Ina dhiaidh sin, roghnaigh an liosta iomlán (cuir ceanntásca san áireamh), cliceáil Kutools Plus > Seol Ríomhphoist.

5. Sa Seol Ríomhphost bosca dialóige:

• 5.1) Cuirtear earraí ar an liosta seoltaí roghnaithe i réimsí comhfhreagracha go huathoibríoch;
• 5.2) Críochnaigh an comhlacht ríomhphoist;
• 5.3) Seiceáil an dá Seol r-phost trí Outlook agus Úsáid socruithe sínithe Outlook boscaí;
• 5.4) Cliceáil ar an Seol cnaipe. Féach an pictiúr:

Anois seoltar ríomhphoist. Agus cuirtear an síniú réamhshocraithe Outlook leis ag deireadh an chomhlachta ríomhphoist.

Earraí gaolmhara:

Uirlisí Táirgiúlachta Oifige is Fearr

🤖	Kutools AI Aide: anailís sonraí a réabhlóidiú bunaithe ar: Forghníomhú Chliste   |  Gin Cód  |  Cruthaigh Foirmlí Saincheaptha  |  Anailís a dhéanamh ar Sonraí agus Cairteacha a Ghin  |  Feidhmeanna Kutools a agairt...
	Gnéithe Coitianta: Faigh, Aibhsigh nó Aithnigh Dúblaigh   |  Scrios Sraitheanna Bána   |  Comhcheangail Colúin nó Cealla gan Sonraí a Chailleadh   |   Babhta gan Foirmle ...
	Cuardaigh Super: Ilchritéir VLookup  |   VLookup Illuachanna  |   VLookup Trasna Ilbhileoga   |   Amharc doiléir ....
	Liosta anuas Casta: Go tapa Cruthaigh Liosta Anuas   |  Liosta anuas Cleithiúnach   |  Liosta Buail Isteach Ilroghnacha ....
	Bainisteoir Colún: Cuir Líon Sonrach Colún leis  |  Colúin Bog  |  Scoránaigh Stádas Infheictheachta na gColún Ceilte  |  Déan comparáid idir Raonta & Colúin ...
	Gnéithe Réadmhaoin: Fócas Eangaí   |  Amharc Dearaidh   |   Barra Mór na Foirmle   |  Leabhar Oibre & Bainisteoir Bileog   |  Leabharlann Acmhainní (Uaththéacs)   |  Piocálaí Dáta   |  Comhcheangail Bileoga Oibre   |  Criptigh/Díchriptigh Cealla   |  Seol Ríomhphost trí Liosta   |  Scagaire Super   |   Scagaire Speisialta (scagaire trom/iodálach/stailc tríd...) ...
	Barr 15 Uirlisí:  12 Téacs uirlisí (Cuir Téacs, Bain Carachtair,...)   |   50 + Cairt cineálacha (Cairt Gantt,...)   |   40+ Praiticiúil Foirmlí (Ríomh aois bunaithe ar lá breithe,...)   |   19 Insertion uirlisí (Cuir isteach Cód QR, Ionsáigh Pictiúr ón gCosán,...)   |   12 Tiontú uirlisí (Uimhreacha le Focail, Comhshó Airgeadra,...)   |   7 Cumaisc & Scoilt uirlisí (Sraitheanna Comhcheangail Casta, Cealla Scoilt,...)   |   ... agus eile

Supercharge Do Scileanna Excel le Kutools le haghaidh Excel, agus Éifeachtúlacht Taithí Cosúil Ná Roimhe. Kutools le haghaidh Excel Tairiscintí Níos mó ná 300 Ardghnéithe chun Táirgiúlacht a Treisiú agus Sábháil Am.  Cliceáil anseo chun an ghné is mó a theastaíonn uait a fháil ...

Leigh Nios mo... Íoslódáil saor in aisce ...

---

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á!

Leigh Nios mo... Íoslódáil saor in aisce ...