Hur infogar jag Outlook-signatur när jag skickar e-post i Excel?

Om du vill skicka ett e-postmeddelande direkt i Excel, hur kan du lägga till standard Outlook-signaturen i e-postmeddelandet? Den här artikeln innehåller två metoder som hjälper dig att lägga till Outlook-signatur när du skickar e-post i Excel.

Infoga signatur i Outlook-e-post när du skickar med Excel VBA
Infoga enkelt Outlook-signatur när du skickar e-post i Excel med ett fantastiskt verktyg
Fler handledning för utskick i Excel ...

Infoga signatur i Outlook-e-post när du skickar med Excel VBA

Till exempel finns det en lista med e-postadresser i ett kalkylblad, för att skicka e-postmeddelanden till alla dessa adresser i Excel och lägga till standard Outlook-signaturen i e-postmeddelandena. Vänligen använd nedanstående VBA-kod för att uppnå det.

1. Öppna kalkylbladet innehåller e-postadresslistan du vill skicka till och tryck sedan på andra + F11 nycklar.

2. I öppningen Microsoft Visual Basic för applikationer fönstret klickar Insert > Modul, och kopiera sedan nedan VBA 2 in i modulkodfönstret.

3. Nu måste du byta ut .Kropp rad in VBA 2 med koden i VBA 1. Flytta sedan linjen .Visa under linjen Med xMailOut.

VBA 1: Mall för att skicka e-postmeddelanden med Outlooks standardsignatur i Excel

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

VBA 2: Skicka e-post till e-postadresser som anges i celler i 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

Följande skärmdump kan hjälpa dig att enkelt hitta skillnaderna efter att du ändrat VBA-koden.

4. tryck på F5 för att köra koden. Då en Kutools för Excel välj rutan dyker upp, välj e-postadresserna du skickar e-post till och klicka sedan på OK.

Sedan skapas e-postmeddelanden. Du kan se Outlooks standardsignatur läggs till i slutet av e-postmeddelandet.

Tips:

• 1. Du kan ändra e-postadressen i VBA-kod 1 baserat på dina behov.
• 2. Om en feldialogruta dyker upp efter att ha kört koden, varnar den att användardefinierad typ inte är definierad, stäng den här dialogrutan och klicka sedan på verktyg > Referensprojekt i Microsoft Visual Basic för applikationer fönster. I öppningen Referenser - VBAProject fönstret, kontrollera Microsoft Outlook-objektbibliotek lådan och klicka OK. Och kör sedan koden igen.
  

Infoga enkelt Outlook-signatur när du skickar e-post i Excel med ett fantastiskt verktyg

Om du är nybörjare i VBA, rekommenderar vi här starkt Skicka e-mail nytta av Kutools för Excel till dig. Med den här funktionen kan du enkelt skicka e-postmeddelanden baserat på vissa fält i Excel och lägga till Outlook-signatur till dem. Gör så här.

För det första måste du skapa en e-postlista med olika fält som du skickar e-post baserat på.

Du kan skapa en e-postlista manuellt efter behov eller använda funktionen Skapa e-postlista för att snabbt få det gjort.

1. klick Kutools Plus > Skapa e-postlista.

2. I Skapa e-postlista i dialogrutan, ange de fält du behöver, välj var listan ska matas ut och klicka sedan på OK knapp.

3. Nu skapas ett e-postlistaexempel. Eftersom det är en exempellista måste du ändra fälten till visst innehåll som behövs. (flera rader är tillåtna)

4. Därefter väljer du hela listan (inkludera rubriker), klickar på Kutools Plus > Skicka e-mail.

5. I Skicka e-mail dialog ruta:

• 5.1) Objekt i vald postlista placeras automatiskt i motsvarande fält;
• 5.2) Avsluta e-postadressen;
• 5.3) Kontrollera båda Skicka e-post via Outlook och Använd Outlooks signaturinställningar lådor;
• 5.4) Klicka på Skicka knapp. Se skärmdump:

Nu skickas e-postmeddelanden. Och standard Outlook-signaturen läggs till i slutet av e-postkroppen.

Relaterade artiklar: