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:

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!

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