Sådan indsættes Outlook-signatur, når du sender e-mail i Excel?

Hvis du antager, at du vil sende en e-mail direkte i Excel, hvordan kan du så tilføje standard Outlook-signaturen i e-mailen? Denne artikel indeholder to metoder til at hjælpe dig med at tilføje Outlook-signatur, når du sender e-mail i Excel.

Indsæt signatur i Outlook-e-mail, når du sender med Excel VBA
Indsæt let Outlook-signatur, når du sender e-mail i Excel med et fantastisk værktøj
Flere tutorials til mailing i Excel ...

Indsæt signatur i Outlook-e-mail, når du sender med Excel VBA

For eksempel er der en liste over e-mailadresser i et regneark, for at sende e-mails til alle disse adresser i Excel og tilføje standard Outlook-signaturen i e-mails. Anvend venligst nedenstående VBA-kode for at opnå det.

1. Åbn regnearket indeholder den e-mail-adresseliste, du vil sende til, og tryk derefter på andre + F11 nøgler.

2. I åbningen Microsoft Visual Basic til applikationer vindue, skal du klikke på indsatte > Modul, og kopier derefter nedenstående VBA 2 ind i modulkodevinduet.

3. Nu skal du udskifte .Legeme linje ind VBA 2 med koden i VBA 1. Flyt derefter linjen .Skærm under stregen Med xMailOut.

VBA 1: Skabelon til afsendelse af e-mails med Outlook standardsignatur i Excel

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

VBA 2: Send e-mail til e-mail-adresser, der er angivet 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ølgende skærmbillede kan hjælpe dig med let at finde forskellene efter ændring af VBA-koden.

4. Tryk på F5 nøgle for at køre koden. Så a Kutools til Excel markeringsfelt dukker op, skal du vælge de e-mail-adresser, du vil sende e-mails til, og klik derefter på OK.

Derefter oprettes e-mails. Du kan se, at Outlooks standardsignatur er tilføjet i slutningen af ​​e-mailens brødtekst.

tips:

• 1. Du kan ændre e-mail-kroppen i VBA-kode 1 baseret på dine behov.
• 2. Efter kørsel af koden, hvis der vises en fejldialogboks, der advarer om, at den brugerdefinerede type ikke er defineret, skal du lukke denne dialog og derefter klikke på Værktøj > Referencer i Microsoft Visual Basic til applikationer vindue. I åbningen Referencer - VBAProject vindue, skal du kontrollere Microsoft Outlook-objektbibliotek boks og klik OK. Og kør derefter koden igen.
  

Indsæt let Outlook-signatur, når du sender e-mail i Excel med et fantastisk værktøj

Hvis du er nybegynder i VBA, kan du varmt anbefale Send emails nytte af Kutools til Excel for dig. Med denne funktion kan du nemt sende e-mails baseret på bestemte felter i Excel og føje Outlook-signatur til dem. Gør som følger.

For det første skal du oprette en mailingliste med forskellige felter, du vil sende e-mails baseret på.

Du kan manuelt oprette en postliste efter behov eller anvende funktionen Opret postliste for hurtigt at få det gjort.

1. klik Kutools Plus > Opret postliste.

2. i Opret postliste i dialogboksen, skal du angive de felter, du har brug for, vælge, hvor listen skal sendes, og klik derefter på OK .

3. Nu oprettes en mailinglisteeksempel. Da det er en eksempleliste, skal du ændre felterne til bestemt nødvendigt indhold. (flere rækker er tilladt)

4. Derefter skal du vælge hele listen (inkludere overskrifter), klikke på Kutools Plus > Send emails.

5. i Send emails dialog boks:

• 5.1) Varer på den valgte postliste placeres automatisk i tilsvarende felter;
• 5.2) Afslut e-mail-organet;
• 5.3) Kontroller begge Send e-mail via Outlook og Brug Outlook's signaturindstillinger kasser;
• 5.4) Klik på Send knap. Se skærmbillede:

Nu sendes e-mails. Og standard Outlook-signaturen tilføjes i slutningen af ​​e-mail-kroppen.

Relaterede artikler:

---

De bedste Office-produktivitetsværktøjer

Kutools til Excel løser de fleste af dine problemer og øger din produktivitet med 80%

• Genbruge: Indsæt hurtigt komplekse formler, diagrammer og alt, hvad du har brugt før; Krypter celler med adgangskode Opret postliste og send e-mails ...
• Super formel bar (let redigere flere linjer med tekst og formel); Læsning Layout (let at læse og redigere et stort antal celler); Indsæt til filtreret rækkevidde...
• Flet celler / rækker / kolonner uden at miste data; Split celler indhold; Kombiner duplikerede rækker / kolonner... Forhindre duplikerede celler; Sammenlign områder...
• Vælg Duplicate eller Unique Rækker; Vælg tomme rækker (alle celler er tomme); Super Find og Fuzzy Find i mange arbejdsbøger; Tilfældig valg ...
• Præcis kopi Flere celler uden at ændre formelreference; Auto Opret referencer til flere ark; Indsæt kugler, Afkrydsningsfelter og mere ...
• Uddrag tekst, Tilføj tekst, Fjern efter position, Fjern mellemrum; Opret og udskriv personsøgningssubtotaler; Konverter mellem celler indhold og kommentarer...
• Superfilter (gem og anvend filterskemaer på andre ark); Avanceret sortering efter måned / uge / dag, hyppighed og mere; Specielt filter af fed, kursiv ...
• Kombiner arbejdsbøger og arbejdsark; Fletabeller baseret på nøglekolonner; Opdel data i flere ark; Batch Konverter xls, xlsx og PDF...
• Mere end 300 kraftfulde funktioner. Understøtter Office / Excel 2007-2021 og 365. Understøtter alle sprog. Nem implementering i din virksomhed eller organisation. Fuld funktioner 30-dages gratis prøveperiode. 60 dages pengene tilbage garanti.

Læs mere ... Gratis download... Køb... 

---

Fanen Office bringer en grænseflade til et kontor med Office, og gør dit arbejde meget lettere

• Aktiver redigering og læsning af faner i Word, Excel, PowerPoint, Publisher, Access, Visio og Project.
• Åbn og opret flere dokumenter i nye faner i det samme vindue snarere end i nye vinduer.
• Øger din produktivitet med 50 % og reducerer hundredvis af museklik for dig hver dag!

Læs mere ... Gratis download... Køb...