Hoe een Outlook-handtekening invoegen bij het verzenden van e-mail in Excel?

Stel dat u een e-mail rechtstreeks in Excel wilt verzenden, hoe kunt u dan de standaard Outlook-handtekening in deze e-mail toevoegen? Dit artikel biedt twee methoden om u te helpen bij het toevoegen van een Outlook-handtekening bij het verzenden van e-mail in Excel.

Handtekening invoegen in Outlook-e-mail bij verzending via Excel VBA
Voeg eenvoudig een Outlook-handtekening in bij het verzenden van e-mail in Excel met een geweldige tool
Meer tutorials voor mailen in Excel ...

Handtekening invoegen in Outlook-e-mail bij verzending via Excel VBA

Er is bijvoorbeeld een lijst met e-mailadressen in een werkblad en u moet naar al deze adressen in Excel e-mailen en de standaard Outlook-handtekening in alle e-mails opnemen. Pas de onderstaande VBA-code toe om dit te bereiken.

1. Open het werkblad met de lijst met e-mailadressen waarnaar u een e-mail wilt verzenden en druk vervolgens op anders + F11 sleutels.

2. In de opening Microsoft Visual Basic voor toepassingen venster klikt Invoegen > module, en kopieer vervolgens het onderstaande VBA 2 in het modulecodevenster.

3. Nu moet u de .Lichaam lijn in VBA 2 met de code in VBA 1. Snijd daarna de .Scherm regel en plak deze onder de Met xMailOut lijn.

VBA 1: sjabloon voor het verzenden van e-mail met handtekening in Excel

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

VBA 2: stuur e-mail naar e-mailadressen die zijn opgegeven in cellen in 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

De volgende schermafbeelding kan u helpen de verschillen gemakkelijk te vinden nadat u de VBA-code hebt gewijzigd.

4. druk de F5 sleutel om de code uit te voeren. Dan een Kutools for Excel selectievak verschijnt, selecteer de e-mailadressen waarnaar u e-mails wilt sturen en klik op OK.

Vervolgens worden e-mails die naar specifieke adressen worden verzonden, gemaakt en weergegeven. U kunt zien dat de standaard Outlook-handtekening is toegevoegd aan het einde van de e-mailtekst.

Tips:

1. U kunt de e-mailtekst in VBA-code 1 wijzigen op basis van uw behoeften.
2. Als na het uitvoeren van de code een foutdialoogvenster verschijnt met de waarschuwing dat het door de gebruiker gedefinieerde type niet is gedefinieerd, sluit dan dit dialoogvenster en klik vervolgens op Toolbox > Referenties functie in het Microsoft Visual Basic voor toepassingen venster. In de opening Referenties - VBAProject -venster, controleer het Microsoft Outlook-objectbibliotheek vak en klik OK. En voer de code vervolgens opnieuw uit.

Voeg eenvoudig een Outlook-handtekening in bij het verzenden van e-mail in Excel met een geweldige tool

Als je een newbie bent in VBA, raad dan ten zeerste de Stuur emails nut van Kutools for Excel voor jou. Met deze functie kunt u eenvoudig e-mails verzenden op basis van bepaalde velden in Excel en er een Outlook-handtekening aan toevoegen. Ga als volgt te werk.

Voor het aanvragen Kutools for Excel, Dan kunt u download en installeer het eerst.

Ten eerste moet u een mailinglijst maken met verschillende velden waarop u e-mails kunt verzenden.

U kunt desgewenst handmatig een mailinglijst maken of de functie Mailinglijst maken toepassen om het snel voor elkaar te krijgen.

1. klikken Kutools Plus > Maak een mailinglijst.

2. In de Maak een mailinglijst dialoogvenster, specificeer de velden die u nodig heeft, kies waar u de lijst wilt weergeven en klik vervolgens op het OK knop.

3. Nu wordt een voorbeeld van een mailinglijst gemaakt. Omdat het een voorbeeldlijst is, moet u de velden wijzigen in bepaalde benodigde inhoud. (meerdere rijen zijn toegestaan)

4. Selecteer daarna de hele lijst (inclusief kopteksten), klik op Kutools Plus > Stuur emails.

5. In de Stuur emails dialoog venster:

5.1) Items in de geselecteerde mailinglijst worden automatisch in de overeenkomstige velden geplaatst;
5.2) Voltooi de e-mailtekst;
5.3) Controleer beide Stuur e-mail via Outlook en Gebruik de handtekeninginstellingen van Outlook dozen;
5.4) Klik op de Verstuur knop. Zie screenshot:

Nu worden e-mails verzonden. En de standaard Outlook-handtekening wordt toegevoegd aan het einde van de e-mailtekst.

Als u een gratis proefperiode (30 dagen) van dit hulpprogramma wilt, klik om het te downloaden, en ga vervolgens de bewerking toepassen volgens de bovenstaande stappen.

Gerelateerde artikelen:

Stuur e-mail naar e-mailadressen die zijn opgegeven in cellen in Excel
Stel dat u een lijst met e-mailadressen heeft en u wilt rechtstreeks in Excel een e-mailbericht naar deze e-mailadressen sturen. Hoe bereik je dit? Dit artikel toont u methoden voor het verzenden van e-mail naar meerdere e-mailadressen die zijn opgegeven in cellen in Excel.

Verzend e-mail door een opgegeven bereik te kopiëren en te plakken in de hoofdtekst van de e-mail in Excel
In veel gevallen kan een bepaald inhoudsbereik in het Excel-werkblad nuttig zijn in uw e-mailcommunicatie. In dit artikel introduceren we een methode voor het verzenden van een e-mail met een opgegeven bereik dat rechtstreeks in Excel in de hoofdtekst van de e-mail wordt geplakt.

Stuur een e-mail met meerdere bijlagen in Excel
In dit artikel wordt gesproken over het verzenden van een e-mail via Outlook met meerdere bijlagen in Excel.

Stuur een e-mail als de vervaldatum is bereikt in Excel
Als de vervaldatum in kolom C bijvoorbeeld minder is dan of gelijk is aan 7 dagen (huidige datum is 2017/9/13), stuur dan een e-mailherinnering naar de opgegeven ontvanger in kolom A met de opgegeven inhoud in kolom B. het bereiken? Dit artikel biedt een VBA-methode om er in detail mee om te gaan.

Verzend automatisch e-mail op basis van celwaarde in Excel
Stel dat u via Outlook een e-mail naar een bepaalde ontvanger wilt sturen op basis van een opgegeven celwaarde in Excel. Als de waarde van cel D7 in een werkblad bijvoorbeeld groter is dan 200, wordt automatisch een e-mail gemaakt. Dit artikel introduceert een VBA-methode waarmee u dit probleem snel kunt oplossen.

Meer tutorials voor mailen in Excel ...

De beste tools voor kantoorproductiviteit

Kutools voor Excel lost de meeste van uw problemen op en verhoogt uw productiviteit met 80%

visfuik: Snel invoegen complexe formules, grafieken en alles wat je eerder hebt gebruikt; Versleutel cellen met wachtwoord; Maak een mailinglijst en stuur e-mails ...
Super Formula-balk (bewerk eenvoudig meerdere regels tekst en formule); Lay-out lezen (gemakkelijk grote aantallen cellen lezen en bewerken); Plakken in gefilterd bereik...
Voeg cellen / rijen / kolommen samen zonder gegevens te verliezen; Gespleten cellen inhoud; Combineer dubbele rijen / kolommen... Voorkom dubbele cellen; Vergelijk Ranges...
Selecteer Dupliceren of Uniek Rijen; Selecteer lege rijen (alle cellen zijn leeg); Super zoeken en fuzzy zoeken in veel werkboeken; Willekeurige selectie ...
Exacte kopie Meerdere cellen zonder de formuleverwijzing te wijzigen; Maak automatisch verwijzingen naar meerdere bladen; Plaats kogels, Selectievakjes en meer ...
Extraheer tekst, Tekst toevoegen, Verwijderen op positie, Ruimte verwijderen; Paging-subtotalen maken en afdrukken; Converteren tussen celinhoud en opmerkingen...
Super filter (bewaar en pas filterschema's toe op andere bladen); Geavanceerd sorteren per maand / week / dag, frequentie en meer; Speciaal filter door vet, cursief ...
Combineer werkmappen en werkbladen; Tabellen samenvoegen op basis van sleutelkolommen; Gegevens splitsen in meerdere bladen; Batch Converteer xls, xlsx en PDF...
Meer dan 300 krachtige functies. Ondersteunt Office / Excel 2007-2019 en 365. Ondersteunt alle talen. Eenvoudig te implementeren in uw onderneming of organisatie. Gratis proefperiode van 30 dagen met volledige functies. 60 dagen geld-terug-garantie.

Lees verder... Gratis download... Aankoop...

Office-tabblad Brengt een interface met tabbladen naar Office en maakt uw werk veel gemakkelijker

Schakel bewerken en lezen met tabbladen in Word, Excel, PowerPoint in, Publisher, Access, Visio en Project.
Open en maak meerdere documenten in nieuwe tabbladen van hetzelfde venster in plaats van in nieuwe vensters.
Verhoogt uw productiviteit met 50% en vermindert elke dag honderden muisklikken voor u!

Lees verder... Gratis download... Aankoop...

18 Comments
Login

Sort by Newest
- Best
- Popular
- Newest
- Oldest

You are guest

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.
samer · 1 months ago
It's really helpful code
I need to change text format from right to left In the xOutMsg line
help please .
- Reply
To post as a guest, your comment is unpublished.
Fevro1 · 1 years ago
I am trying to integrate this code into the current format I currently have whereby I am able to automate emails within excel based on a set range of values. Any help in regard to where to add the 'signature' code within what I currently have would be much appreciated.

Public Sub CheckAndSendMail()
'Updated by Extendoffice 2018/11/22
Dim xRgDate As Range
Dim xRgSend As Range
Dim xRgText As Range
Dim xRgDone As Range
Dim xOutApp As Object
Dim xMailItem As Object
Dim xLastRow As Long
Dim vbCrLf As String
Dim xMailBody As String
Dim xRgDateVal As String
Dim xRgSendVal As String
Dim xMailSubject As String
Dim I As Long
On Error Resume Next
'Please specify the due date range
xStrRang = "D2:D110"
Set xRgDate = Range(xStrRang)
'Please specify the recipients email address range
xStrRang = "C2:C110"
Set xRgSend = Range(xStrRang)
xStrRang = "A2:A110"
Set xRgName = Range(xStrRang)
'Specify the range with reminded content in your email
xStrRang = "Z2:Z110"
Set xRgText = Range(xStrRang)
xLastRow = xRgDate.Rows.Count
Set xRgDate = xRgDate(1)
Set xRgSend = xRgSend(1)
Set xRgName = xRgName(1)
Set xRgText = xRgText(1)
Set xOutApp = CreateObject("Outlook.Application")
For I = 1 To xLastRow
xRgDateVal = ""
xRgDateVal = xRgDate.Offset(I - 1).Value
If xRgDateVal <> "" Then
If CDate(xRgDateVal) - Date <= 30 And CDate(xRgDateVal) - Date > 0 Then
xRgSendVal = xRgSend.Offset(I - 1).Value
xMailSubject = " JBC Service Agreement Expiring On The " & xRgDateVal
vbCrLf = "

"
xMailBody = ""
xMailBody = xMailBody & "Dear " & xRgName.Offset(I - 1).Value & vbCrLf
xMailBody = xMailBody & " " & xRgText.Offset(I - 1).Value & vbCrLf
xMailBody = xMailBody & ""
Set xMailItem = xOutApp.CreateItem(0)
With xMailItem
.Subject = xMailSubject
.To = xRgSendVal
.CC = "mailcc@justbettercare.com"
.HTMLBody = xMailBody
.Display
'.Send
End With
Set xMailItem = Nothing
End If
End If
Next
Set xOutApp = Nothing
End Sub
- Reply
To post as a guest, your comment is unpublished.
kanojiyajay161196@gmail.com · 2 years ago
Thanks to you, I can add signature now but then it removes spaces between paragraph of text. Please Can you Help me ?

Sub helloworld()
Dim OutApp As Object
Dim OutMail As Object
Dim cell As Range
Dim Path As String
Path = Application.ActiveWorkbook.Path
Set OutApp = CreateObject("Outlook.Application")

For Each cell In Range("C4:C6")
Set OutMail = OutApp.CreateItem(0)
With OutMail
.Display
.To = cell.Value
.Subject = Cells(cell.Row, "D").Value
.HTMLBody = "Dear " & Cells(cell.Row, "B").Value & "," _
& vbNewLine & vbNewLine & _
"Warm Greetings" _
& vbNewLine & vbNewLine & _
"We, JK Overseas, would like to take an opportunity and introduce our company J K Overseas, which is involved in the salt business for the last 3 years. We are currently strong in domestic and expanding overseas. We are the supplier of Edible Salt, Water Softening Salt, De-icing Salt, Industrial Salt" & "." _
& vbNewLine & vbNewLine & _
"We have a tie-up with large scale manufacturers in India and procure from them quality Salt and exports. So, we are looking for a reliable expert importer as well as distributor agent to make a long-term Business with mutual benefit" & "." _
& vbNewLine & vbNewLine & _
"Please contact us with your requirement or for any other inquiries you may have. We provide reliable logistics and on-time delivery. We are confident that our prices being most competitive will match your expectations" & "." _
& vbNewLine & vbNewLine & _
.HTMLBody

'.Send
End With
Next cell
End Sub
- Reply
To post as a guest, your comment is unpublished.
fadysam · 2 years ago
Dear,
Can someone help me with my VBA,
I need the signature in the email created:
- Reply
To post as a guest, your comment is unpublished.
Bara · 2 years 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
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 2 years ago
  
  Hi Bara,
  Sorry can't help you with that. Thanks for your comment.
  
  Reply
To post as a guest, your comment is unpublished.
Kasun · 2 years ago
Thanks a lot...
- Reply
To post as a guest, your comment is unpublished.
Prakash · 2 years ago
Superb!!!!
- Reply
To post as a guest, your comment is unpublished.
Michael · 3 years ago
I'm having trouble running this on excel 2016. I get a "Compile Error: User Defined Type Not Defined" message. Please help!
- Reply
To post as a guest, your comment is unpublished.
Maggie · 3 years 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.
- Reply
To post as a guest, your comment is unpublished.
viraj Shirsat · 3 years ago
how to add signature if the macro is used by multiple user.
for eg my macro will be run by 3 other persons as well. So how can the macro use the signature of the user who is running the macro.
thanks in advance
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good Day,
  The VBA code can automatically recognize the default signature in the Outlook of the sender, and send email with his own signature through Outlook.
  
  Reply
To post as a guest, your comment is unpublished.
kkoruni · 3 years ago
i am trying to add the outlook signature titled "default" but cannot seem that it works.
can you please help? I believe that my "xMailout" logic is wrong. this is my suspected faulty area.

Private Sub CommandButton1_Click()

Dim xOutApp As Object
Dim xOutMail As Object
Dim xMailBody As String
Dim xMailOut As Outlook.MailItem
On Error Resume Next
Set xOutApp = CreateObject("Outlook.Application")
Set xOutMail = xOutApp.CreateItem(0)
xMailBody = "Greetings:" & vbNewLine & vbNewLine & _
"This is line 1" & vbNewLine & _
"This is line 2" & vbNewLine & _
"This is line 3" & vbNewLine & _
"This is line 4"
On Error Resume Next
With xOutMail
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "Email Title Here - " & Range("Cell#").value
.Body = xMailBody
. Attachments.Add ActiveWorkbook.FullName
Set xMailOut = xOutApp.CreateItem(olMailItem)
With xMailOut
.Display
End With
ActiveWorkbook.Save
On Error GoTo 0
Set xOutMail = Nothing
Set xOutApp = Nothing
End Sub
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Good day,
  You script has been modified, please have try. Thank you.
  
  Private Sub CommandButton1_Click()
  Dim xOutApp As Object
  Dim xOutMail As Object
  Dim xMailBody As String
  Dim xMailOut As Outlook.MailItem
  On Error Resume Next
  Set xOutApp = CreateObject("Outlook.Application")
  Set xOutMail = xOutApp.CreateItem(0)
  xMailBody = "Greetings:" & vbNewLine & vbNewLine & _
  "This is line 1" & vbNewLine & _
  "This is line 2" & vbNewLine & _
  "This is line 3" & vbNewLine & _
  "This is line 4"
  On Error Resume Next
  With xOutMail
  .To = "Email.here.com"
  .CC = "Email.here.com"
  .Subject = "Email Title Here - " & Range("Cell#").Value
  .Body = xMailBody
  .Attachments.Add ActiveWorkbook.FullName
  Set xMailOut = xOutApp.CreateItem(olMailItem)
  With xMailOut
  .Display
  End With
  End With
  ActiveWorkbook.Save
  On Error GoTo 0
  Set xOutMail = Nothing
  Set xOutApp = Nothing
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Chris · 3 years ago
doesnt work with attachments in Office 2016
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 3 years ago
  
  Dear Chris,
  The below VBA code can help you. After running the code, please select cells containing email addresses you will send emails to, and then select the files you need to attach in the email as attachments when the second dialog box pops up. And the default Outlook signature will be displayed in the email body as well. Thank you for your comment.
  
  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)
  Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
  If xFileDlg.Show = -1 Then
  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 = "This is a test email sending in Excel" & "
  " & .HTMLBody
  For Each xFileDlgItem In xFileDlg.SelectedItems
  .Attachments.Add xFileDlgItem
  Next xFileDlgItem
  '.Send
  End With
  End If
  Next
  Set xMailOut = Nothing
  Set xOutApp = Nothing
  Application.ScreenUpdating = True
  End If
  End Sub
  
  Reply
To post as a guest, your comment is unpublished.
Favio · 4 years ago
thank u very much, u save my life with this template :D
- Reply
- To post as a guest, your comment is unpublished.
  crystal · 4 years ago
  
  Dear Favio,
  Glad to help.
  
  Reply

Log in op uw account

Wachtwoord Resetten