Conas ríomhphost a sheoladh le comhlacht ríomhphoist HTML in Excel?
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 Subnótaí:
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:
- Conas ríomhphost a sheoladh go huathoibríoch bunaithe ar luach cille in Excel?
- Conas síniú a chur isteach i ríomhphost Outlook agus é á sheoladh ag vba in Excel?
- Conas ríomhphost a sheoladh le formáid shonraithe cló trom / méid / dath / béim ar líne in Excel?
- Conas ríomhphost a sheoladh gan Outlook in Excel?
- Conas cairt shonrach a sheoladh i ríomhphost le vba in Excel?
- Conas ríomhphost a sheoladh ag am ar leith den lá in Excel?
Uirlisí Táirgiúlachta Oifige is Fearr
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á!
