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 de 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, om e-mails naar al deze adressen in Excel te sturen en de standaard Outlook-handtekening in de e-mails toe te voegen. 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 VBA2 in het modulecodevenster.
3. Nu moet u de .Lichaam lijn in VBA2 met de code in VBA1. Verplaats daarna de lijn .Scherm onder de streep Met xMailOut.
VBA 1: sjabloon voor het verzenden van e-mails met de standaardhandtekening van Outlook in Excel
.HTMLBody = "This is a test email sending in Excel" & "<br>" & .HTMLBodyVBA 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 SubDe 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 aangemaakt. U kunt zien dat de standaardhandtekening van Outlook is toegevoegd aan het einde van de hoofdtekst van de e-mail.
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 Tools > Referenties in de 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 Koetools 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 Koetools 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 Verzenden 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.
Beste Office-productiviteitstools
Geef uw Excel-vaardigheden een boost met Kutools voor Excel en ervaar effici毛ntie als nooit tevoren. Kutools voor Excel biedt meer dan 300 geavanceerde functies om de productiviteit te verhogen en tijd te besparen. Klik hier om de functie te krijgen die u het meest nodig heeft...
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 honderden muisklikken voor u elke dag!
