Kako poslati e-pošto z e-poštnim telesom HTML v Excelu?
Če želite v Excelu poslati e-poštno sporočilo z vsebino telesa v obliki zapisa HTML, vam lahko pomaga metoda v tem članku.
Pošljite e-pošto z e-poštnim telesom HTML s kodo VBA
Pošljite e-pošto z e-poštnim telesom HTML s kodo VBA
Naredite naslednje, če želite v Excelu poslati e-poštno sporočilo z vsebino telesa v obliki zapisa HTML.
1. Pritisnite druga + F11 hkrati odpreti Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, kliknite Vstavi > Moduli. Nato kopirajte spodnjo kodo VBA v okno modula.
Koda VBA: Pošljite e-pošto z e-poštnim telesom HTML v Excelu
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
Opombe:
3. klik Orodja > Reference, preverite Knjižnica predmetov Microsoft Outlook polje v Reference - VAProject pogovorno okno in nato kliknite OK . Oglejte si posnetek zaslona:
4. Pritisnite F5 tipko za zagon kode. V pojavnem oknu Kutools za Excel v pogovornem oknu izberite e-poštne naslove prejemnikov in kliknite na OK gumb.
Nato se ustvari e-pošta z navedenimi polji in telesom HTML. Kliknite Pošlji gumb, da ga pošljete.
Preprosto pošiljanje e-pošte prek Outlooka na podlagi ustvarjenega poštnega seznama:
O Pošlji e-pošto uporabnost Kutools za Excel pomaga uporabnikom, ki pošiljajo e-pošto prek Outlooka na podlagi ustvarjenega poštnega seznama v Excelu, kot je prikazano na spodnji sliki zaslona.
Prenesite in preizkusite zdaj! (30-dnevna brezplačna pot)
Sorodni članki:
- Kako samodejno poslati e-pošto na podlagi vrednosti celice v Excelu?
- Kako vstaviti podpis v e-poštno sporočilo Outlooka pri pošiljanju prek vba v Excelu?
- Kako poslati e-pošto z navedeno krepko / velikostjo / barvo / podčrtano obliko besedila v Excelu?
- Kako poslati e-pošto brez Outlooka v Excelu?
- Kako poslati določen grafikon v e-pošti z vba v Excelu?
- Kako poslati e-pošto ob določenem času dneva v Excelu?
Najboljša pisarniška orodja za produktivnost
Napolnite svoje Excelove spretnosti s Kutools za Excel in izkusite učinkovitost kot še nikoli prej. Kutools za Excel ponuja več kot 300 naprednih funkcij za povečanje produktivnosti in prihranek časa. Kliknite tukaj, če želite pridobiti funkcijo, ki jo najbolj potrebujete...
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50%in vsak dan zmanjša na stotine klikov miške za vas!