Cum să trimiteți e-mailuri cu corp de e-mail HTML în Excel?
Dacă doriți să trimiteți un e-mail cu conținut corporal în format HTML în Excel, o metodă din acest articol vă poate ajuta.
Trimiteți e-mail cu corp de e-mail HTML cu cod VBA
Trimiteți e-mail cu corp de e-mail HTML cu cod VBA
Vă rugăm să procedați după cum urmează pentru a trimite un e-mail cu conținut corporal în format HTML în Excel.
1. apasă pe Alt + F11 simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.
2. În Microsoft Visual Basic pentru aplicații fereastră, faceți clic pe Insera > Module. Apoi copiați mai jos codul VBA în fereastra Module.
Cod VBA: trimiteți un e-mail cu corpul de e-mail HTML în 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
notițe:
3. clic Instrumente > Referinte, verifică Biblioteca de obiecte Microsoft Outlook cutie în Referințe - VAProject casetă de dialog, apoi faceți clic pe OK buton. Vedeți captura de ecran:
4. apasă pe F5 tasta pentru a rula codul. În pop-up Kutools pentru Excel caseta de dialog, selectați adresele de e-mail ale destinatarilor și apoi faceți clic pe OK butonul.
Apoi se creează un e-mail cu câmpurile specificate și corpul HTML. Vă rugăm să faceți clic pe Trimiteți pentru a-l trimite.
Trimiteți ușor e-mail prin Outlook pe baza listei de corespondență create:
Trimite emailuri utilitatea Kutools pentru Excel ajută utilizatorii să trimită mesaje de e-mail prin Outlook pe baza listei de corespondență create în Excel, după cum se arată în imaginea de mai jos.
Descărcați și încercați acum! (traseu gratuit de 30 de zile)
Legate de articole:
- Cum să trimiteți automat e-mailuri pe baza valorii celulei din Excel?
- Cum se introduce semnătura în e-mailul Outlook când se trimite prin vba în Excel?
- Cum să trimiteți un e-mail cu formatul de text specificat în bold / dimensiune / culoare / subliniat în Excel?
- Cum să trimiteți e-mail fără Outlook în Excel?
- Cum să trimiteți o anumită diagramă într-un e-mail cu vba în Excel?
- Cum să trimiteți un e-mail la o anumită oră a zilei în Excel?
Cele mai bune instrumente de productivitate de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară
- Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
- Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ferestrele noi.
- Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!