Skip to main content

Déan iniúchadh ar an nua, leagan saor in aisce de Kutools le haghaidh Outlook inniu!

 

Conas ríomhphost a sheoladh le comhlacht ríomhphoist HTML in Excel?

Údar: Siluvia Athraithe Deiridh: 2020-07-22

Más mian leat ríomhphost a sheoladh le hábhar comhlacht formáid HTML in Excel, is féidir le modh san alt seo cabhrú leat.

Seol r-phost le comhlacht ríomhphoist HTML le cód VBA

Seol r-phost le comhlacht ríomhphoist HTML le cód VBA

Déan mar a leanas le do thoil chun ríomhphost a sheoladh le hábhar comhlacht formáid HTML in Excel.

1. Brúigh an Eile + F11 ag an am céanna chun an Microsoft Visual Basic d’Fheidhmchláir fhuinneog.

2. Sa Microsoft Visual Basic d’Fheidhmchláir fuinneog, cliceáil Ionsáigh > Modúil. Ansin cóipeáil thíos cód VBA isteach i bhfuinneog an Mhodúil.

Cód VBA: Seol r-phost le comhlacht ríomhphoist HTML in Excel

Sub SendEmailformattext()
'Update by Extendoffice.com
    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
             .Display
                .To = xRgVal
                .Subject = "Test"
                .HTMLBody = "<HTML><BODY><span style=""color:#80BFFF"">Font Color</span style=""color:#80BFFF""> <br>the <b>bold text</b> here.</br> <br><u>New line with underline</u></br><br><p style='font-family:calibri;font-size:25'>Font size</br></p></BODY></HTML>"
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

nótaí:

1) Ionadaigh an .Ábhar líne le do cheann féin.
2) Sa .HTMLBody líne:
2.1) ... an bhfuil formáid dath an téacs;
2.2) … in ann do théacs a dhéanamh dána;
2.3) Más mian leat líne nua a thosú, cuir an téacs líne nua faoi iamh le do thoil …;
2.4) Cuir béim ar do théacs le …;
2.5) Agus athraigh méid do théacs faoi ….

3. cliceáil uirlisí > tagairtí, seiceáil an Leabharlann Réada Microsoft Outlook bosca sa Tagairtí - VAProject bosca dialóige, agus ansin cliceáil ar an OK cnaipe. Féach an pictiúr:

4. Brúigh an F5 eochair chun an cód a rith. Sa popping suas Kutools le haghaidh Excel bosca dialóige, roghnaigh seoltaí ríomhphoist na bhfaighteoirí agus ansin cliceáil ar an OK cnaipe.

Ansin cruthaítear ríomhphost le réimsí sonraithe agus cruthaítear comhlacht HTML. Cliceáil le do thoil ar an Seol cnaipe chun é a sheoladh.

Seol r-phost go héasca trí Outlook bunaithe ar an liosta postála cruthaithe:

An Seol Ríomhphost fóntais de Kutools le haghaidh Excel cuidíonn sé le húsáideoirí ríomhphost a sheoladh trí Outlook bunaithe ar liosta seoltaí cruthaithe in Excel mar an pictiúr thíos a thaispeántar.
Íoslódáil agus bain triail as anois! (trasáil saor in aisce 30 lá)

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 ...

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