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

or

Bagaimana untuk memasukkan tandatangan ke dalam e-mel Outlook apabila menghantar dengan vba dalam Excel?

Apabila menghantar e-mel dengan menjalankan kod VBA dalam Excel, tandatangan Outlook tidak akan dipaparkan dalam badan e-mel secara automatik. Artikel ini bercakap tentang menghantar e-mel dengan tanda tangan Outlook memaparkan dalam badan e-mel oleh kod VBA dalam Excel.

Sisipkan tandatangan ke e-mel Outlook apabila menghantar oleh Excel 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


Sisipkan tandatangan ke e-mel Outlook apabila menghantar oleh Excel VBA


Sekiranya anda perlu menghantar e-mel ke senarai alamat e-mel termasuk tandatangan Outlook dalam semua e-mel yang dihantar. Sila buat seperti berikut.

1. Tolong ganti baris B.Bunyi di bawah VBA 2 dengan kod di VBA 1. Dan dalam VBA 2, gerakkan .Display berbaris sehingga ia berada di bawah Dengan xMailOut selaras.

VBA 1: Templat menghantar e-mel dengan tandatangan di Excel

.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBody

VBA 2: Hantar e-mel kepada alamat e-mel yang dinyatakan dalam sel dalam Excel

Sub SendEmailToAddressInCells()
    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
                .To = xRgVal
                .Subject = "Test"
                .Body = "Dear " _
                      & vbNewLine & vbNewLine & _
                        "This is a test email " & _
                        "sending in Excel"
                .Display
                '.Send
            End With
        End If
    Next
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

Tangkapan skrin berikut ini dapat membantu anda untuk mencari perbezaan dengan mudah selepas menukar kod VBA.

Setelah menjalankan kod VBA, anda dapat melihat tandatangan Outlook lalai dimasukkan ke dalam badan e-mel yang dibuat secara automatik seperti di bawah tangkapan skrin yang ditunjukkan.


Related articles:


Cadangan Alat Produktiviti untuk Excel

kte tab 201905

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.
    Bara · 8 days ago
    Hi, I would need help with my macro, I need to insert the Outlook signature under the table, could you help me with that?

    Private Sub CommandButton1_Click()


    Dim outlook As Object
    Dim newEmail As Object
    Dim xInspect As Object
    Dim pageEditor As Object

    Set outlook = CreateObject("Outlook.Application")
    Set newEmail = outlook.CreateItem(0)

    With newEmail
    .To = Sheet5.Range("F1")
    .CC = ""
    .BCC = ""
    .Subject = Sheet5.Range("B5")
    .Body = Sheet5.Range("B41")
    .display

    Set xInspect = newEmail.GetInspector
    Set pageEditor = xInspect.WordEditor

    Sheet5.Range("B6:I7").Copy

    pageEditor.Application.Selection.Start = Len(.Body)
    pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
    pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)

    .display
    Set pageEditor = Nothing
    Set xInspect = Nothing
    End With

    Set newEmail = Nothing
    Set outlook = Nothing

    End Sub
  • To post as a guest, your comment is unpublished.
    Kasun · 1 months ago
    Thanks a lot...
  • To post as a guest, your comment is unpublished.
    Prakash · 6 months ago
    Superb!!!!
  • To post as a guest, your comment is unpublished.
    Michael · 9 months ago
    I'm having trouble running this on excel 2016. I get a "Compile Error: User Defined Type Not Defined" message. Please help!
  • To post as a guest, your comment is unpublished.
    Maggie · 9 months ago
    If my body text is linked to pull from excel fields, the use of & .HTMLBody at the end of the string erases all of the body text and just leaves the signature.