Hogyan küldhetünk e-mailt HTML e-mail törzssel az Excelben?
Ha HTML formátumú törzs tartalmú e-mailt szeretne küldeni az Excel programban, akkor a cikkben szereplő módszer segíthet.
E-mail küldése HTML e-mail törzssel, VBA kóddal
E-mail küldése HTML e-mail törzssel, VBA kóddal
Kérjük, tegye a következőket, ha HTML formátumú törzs tartalmú e-mailt szeretne küldeni az Excel programban.
1. megnyomni a más + F11 egyszerre nyissa meg a Microsoft Visual Basic for Applications ablak.
2. Ban,-ben Microsoft Visual Basic for Applications ablakban kattintson betétlap > Modulok. Ezután másolja a VBA kód alatt a Modul ablakba.
VBA kód: E-mail küldése HTML e-mail törzssel az Excelben
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
Megjegyzések:
3. kettyenés Eszközök > Referenciák, ellenőrizd a Microsoft Outlook objektumkönyvtár doboz a Referenciák - VAProject párbeszédpanelt, majd kattintson a gombra OK gomb. Lásd a képernyőképet:
4. megnyomni a F5 gombot a kód futtatásához. A felbukkanóban Kutools az Excel számára párbeszédpanelen válassza ki a címzettek e-mail címét, majd kattintson a gombra OK gombot.
Ezután létrejön a megadott mezőkkel és HTML törzszel ellátott e-mail. Kattintson a gombra Küldés gombra a küldéséhez.
Könnyen küldhet e-mailt az Outlook segítségével a létrehozott levelezőlista alapján:
A Emaileket küld hasznossága Kutools az Excel számára segíti a felhasználókat az Outlook segítségével az Excelen létrehozott levelezőlista alapján, az alábbi képernyőkép szerint.
Töltse le és próbálja ki most! (30 napos ingyenes túra)
Kapcsolódó cikkek:
- Hogyan küldhetünk automatikusan e-mailt az Excel cellája alapján?
- Hogyan illesszünk aláírást az Outlook e-mailbe, amikor vba-val küldjük az Excel-ben?
- Hogyan küldhetünk e-mailt a megadott félkövér / méret / szín / aláhúzás szöveges formátummal az Excelben?
- Hogyan küldhet e-mailt Outlook nélkül az Excel programban?
- Hogyan küldhetünk egy adott diagramot egy e-mailben az vba-val az Excelben?
- Hogyan küldhetünk e-mailt a nap meghatározott időpontjában az Excel programban?
A legjobb irodai hatékonyságnövelő eszközök
Töltsd fel Excel-készségeidet a Kutools for Excel segítségével, és tapasztald meg a még soha nem látott hatékonyságot. A Kutools for Excel több mint 300 speciális funkciót kínál a termelékenység fokozásához és az időmegtakarításhoz. Kattintson ide, hogy megszerezze a leginkább szükséges funkciót...
Az Office lap füles felületet hoz az Office-ba, és sokkal könnyebbé teszi a munkáját
- Füles szerkesztés és olvasás engedélyezése Wordben, Excelben és PowerPointban, Publisher, Access, Visio és Project.
- Több dokumentum megnyitása és létrehozása ugyanazon ablak új lapjain, mint új ablakokban.
- 50% -kal növeli a termelékenységet, és naponta több száz kattintással csökkenti az egér kattintását!