Petua: Bahasa lain diterjemahkan Google. Anda boleh melawat English versi pautan ini.
Log masuk
x
or
x
x
Daftar Sekarang
x

or

Bagaimana untuk menghantar e-mel dengan badan e-mel HTML dalam Excel?

Jika anda mahu menghantar e-mel dengan kandungan badan HTML format dalam Excel, satu kaedah dalam artikel ini boleh membantu anda.

Hantar e-mel dengan badan e-mel HTML dengan kod VBA


Mudah menghantar e-mel melalui Outlook berdasarkan senarai surat yang dibuat:

Platform Menghantar emel utiliti Kutools untuk Excel membantu pengguna menghantar e-mel melalui Outlook berdasarkan senarai surat yang dibuat dalam Excel. Lihat pukulan skrin:

Kutools untuk Excel termasuk lebih banyak alat 300 alat Excel. Percuma untuk mencuba tanpa had pada hari 60. Muat turun percubaan percuma sekarang


Hantar e-mel dengan badan e-mel HTML dengan kod VBA


Sila lakukan seperti berikut untuk menghantar e-mel dengan kandungan badan format HTML dalam Excel.

1. Tekan butang Alt + F11 serentak untuk membuka Microsoft Visual Basic untuk Aplikasi tingkap.

2. Di dalam Microsoft Visual Basic untuk Aplikasi tetingkap, klik Memasukkan > Modul. Kemudian salin di bawah kod VBA ke dalam tetingkap Modul.

Kod VBA: Hantar e-mel dengan badan e-mel HTML dalam 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

Nota:

1) Gantikan semula .Subject selari dengan anda sendiri.

2) Di .HTMLBody baris:

2.1) <span style = "" color: #80BFFF ""> ... </ span style = "" color: #80BFFF ""> adalah format warna teks;

2.2) <b> ... </ b> boleh membuat teks anda berani;

2.3) Jika anda ingin memulakan baris baru, sila sertakan teks baris baru dengan <br> ... </ br>;

2.4) Garis bawah teks anda dengan <u> ... </ u>;

2.5) Dan ubah saiz teks anda dengan <p style = 'font-family: calibri; font-size: 25'> ... </ p>.

3. klik Alatan > Rujukan, periksa Perpustakaan Objek Microsoft Outlook kotak di Rujukan - VAProject kotak dialog, dan kemudian klik OK butang. Lihat tangkapan skrin:

4. Tekan butang F5 kunci untuk menjalankan kod. Dalam bermunculan Kutools untuk Excel kotak dialog, pilih alamat e-mel penerima dan kemudian klik OK butang.

Kemudian e-mel dengan medan tertentu dan badan HTML dibuat. Sila klik menghantar butang untuk menghantarnya.


Related articles:



Cadangan Alat Produktiviti untuk Excel

Kutools untuk Excel Membantu Anda Selalu Menyelesaikan Kerja di Hadapan Masa, dan Berdiri Daripada Orang

  • Lebih daripada ciri-ciri canggih 300 yang canggih, yang direka untuk senario kerja 1500, meningkatkan produktiviti oleh 70%, memberi anda lebih banyak masa untuk menjaga keluarga dan menikmati kehidupan.
  • Tidak perlu lagi menghafal formula dan kod VBA, berikan rehat dari otak anda sekarang.
  • Menjadi pakar Excel dalam minit 3, Operasi yang rumit dan berulang boleh dilakukan dalam beberapa saat,
  • Mengurangkan beribu-ribu operasi papan kekunci & tetikus setiap hari, mengucapkan selamat tinggal kepada penyakit pekerjaan sekarang.
  • 110,000 orang yang sangat berkesan dan pilihan syarikat 300 + yang terkenal di dunia.
  • Ciri-ciri penuh 60-hari adalah percubaan percuma. Jaminan wang balik 60 hari. Tahun 2 peningkatan dan sokongan percuma.

Membawa Browsing Tab dan Editing ke Microsoft Office, Jauh Lebih Berkuasa Daripada Tab Penyemak Imbas

  • Tab Pejabat direka untuk Aplikasi Pejabat Word, Excel, PowerPoint dan Lain-lain: Penerbit, Akses, Visio dan Projek.
  • Buka dan buat beberapa dokumen dalam tab baharu pada tetingkap yang sama, dan bukannya dalam tetingkap baru.
  • Meningkatkan produktiviti anda oleh 50%, dan mengurangkan beratus-ratus klik tetikus untuk anda setiap hari!
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Luis · 9 months ago
    i have my mail signature for default. however once i run the macro the message delete the mail signature from the new mail. Do you know how is possible mantein it ? thank you!!! Best Regards