Note: The other languages of the website are Google-translated. Back to English

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.

Før påføring Kutools til Excel, Bedes download og installer det først.

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.

  Hvis du vil have en gratis prøveperiode (30-dag) for dette værktøj, klik for at downloade det, og gå derefter til at anvende handlingen i henhold til ovenstående trin.


Relaterede artikler:

Send e-mail til e-mail-adresser, der er angivet i celler i Excel
Antag at du har en liste over e-mail-adresser, og at du vil sende e-mail til disse e-mail-adresser i bulk direkte i Excel. Hvordan opnås det? Denne artikel viser dig metoder til at sende e-mail til flere e-mail-adresser, der er angivet i celler i Excel.

Send e-mail med kopiering og indsætning af et bestemt interval i e-mail-brødtekst i Excel
I mange tilfælde kan et specifikt udvalg af indhold i Excel-regneark være nyttigt i din e-mail-kommunikation. I denne artikel introducerer vi en metode til at sende en e-mail med specificeret rækkevidde, der indsættes i e-mail-kroppen direkte i Excel.

Send e-mail med flere vedhæftede filer vedhæftet i Excel
Denne artikel taler om at sende en e-mail via Outlook med flere vedhæftede filer vedhæftet i Excel.

Send e-mail, hvis forfaldsdato er opfyldt i Excel
For eksempel, hvis forfaldsdatoen i kolonne C er mindre end eller lig med 7 dage (nuværende dato er 2017/9/13), skal du sende en e-mailpåmindelse til den angivne modtager i kolonne A med specificeret indhold i kolonne B. Opnå det? Denne artikel vil give en VBA-metode til at håndtere den i detaljer.

Send automatisk e-mail baseret på celleværdi i Excel
Antag, at du vil sende en e-mail via Outlook til en bestemt modtager baseret på en bestemt celleværdi i Excel. For eksempel, når værdien af ​​celle D7 i et regneark er større end 200, oprettes der automatisk en e-mail. Denne artikel introducerer en VBA-metode, som du hurtigt kan løse dette problem.

Flere tutorials til mailing i Excel ...


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.
kte-fane 201905

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!
officetab bund
Sorter kommentarer efter
Kommentarer (29)
Ingen vurderinger endnu. Vær den første til at bedømme!
Denne kommentar blev minimeret af moderatoren på webstedet
mange tak, du redder mit liv med denne skabelon :D
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Favio,
Glad for at hjælpe.
Denne kommentar blev minimeret af moderatoren på webstedet
virker ikke med vedhæftede filer i Office 2016
Denne kommentar blev minimeret af moderatoren på webstedet
Kære Chris,
Nedenstående VBA-kode kan hjælpe dig. Når du har kørt koden, skal du vælge celler, der indeholder e-mail-adresser, du vil sende e-mails til, og derefter vælge de filer, du skal vedhæfte i e-mailen som vedhæftede filer, når den anden dialogboks dukker op. Og standard Outlook-signaturen vil også blive vist i e-mail-teksten. Tak for din kommentar.

Sub SendEmailToAddressInCells()
Dim xRg As Range
Dim xRgEach As Range
Dim xRgVal As String
Dim xAddress As String
Dim xOutApp Som Outlook.Application
Dim xMailOut Som Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Indstil xRg = Application.InputBox("Vælg venligst e-mailadresseinterval", "KuTools til Excel", xAddress, , , , , 8)
Hvis xRg ikke er noget, skal du afslutte Sub
Application.ScreenUpdating = False
Indstil xOutApp = CreateObject("Outlook.Application")
Indstil xRg = xRg.SpecialCells(xlCellTypeConstants, xlTextValues)
Indstil xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
Hvis xFileDlg.Show = -1 Så
For hver xRgEach In xRg
xRgVal = xRgHver.Value
Hvis xRgVal Ligesom "?*@?*.?*" Så
Indstil xMailOut = xOutApp.CreateItem(olMailItem)
Med xMailOut
.Skærm
.To = xRgVal
.Subject = "Test"
.HTMLBody = "Dette er en test-e-mail, der sendes i Excel" & "
" & .HTMLBody
For hvert xFileDlgItem i xFileDlg.SelectedItems
.Attachments.Add xFileDlgItem
Næste xFileDlgItem
'.Sende
Slut med
End If
Næste
Indstil xMailOut = Ingenting
Indstil xOutApp = Ingenting
Application.ScreenUpdating = True
End If
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg forsøger at tilføje outlook-signaturen med titlen "default", men kan ikke se ud til, at den virker.
kan du venligst hjælpe? Jeg tror, ​​at min "xMailout"-logik er forkert. dette er mit mistænkte defekte område.

Privat Sub CommandButton1_Click ()

Dim xOutApp som objekt
Dim xOutMail som objekt
Dim xMailBody As String
Dim xMailOut Som Outlook.MailItem
On Error Resume Next
Indstil xOutApp = CreateObject("Outlook.Application")
Indstil xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hilsen:" & vbNewLine & vbNewLine & _
"Dette er linje 1" & vbNewLine & _
"Dette er linje 2" & vbNewLine & _
"Dette er linje 3" & vbNewLine & _
"Dette er linje 4"
On Error Resume Next
Med xOutMail
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "E-mail titel her - " & Range("Cell#").value
.Body = xMailBody
. Attachments.Add ActiveWorkbook.FullName
Indstil xMailOut = xOutApp.CreateItem(olMailItem)
Med xMailOut
.Skærm
Slut med
ActiveWorkbook.Save
På Fejl GoTo 0
Indstil xOutMail = Ingenting
Indstil xOutApp = Ingenting
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
God dag,
Dit script er blevet ændret, prøv venligst. Tak skal du have.

Privat Sub CommandButton1_Click ()
Dim xOutApp som objekt
Dim xOutMail som objekt
Dim xMailBody As String
Dim xMailOut Som Outlook.MailItem
On Error Resume Next
Indstil xOutApp = CreateObject("Outlook.Application")
Indstil xOutMail = xOutApp.CreateItem(0)
xMailBody = "Hilsen:" & vbNewLine & vbNewLine & _
"Dette er linje 1" & vbNewLine & _
"Dette er linje 2" & vbNewLine & _
"Dette er linje 3" & vbNewLine & _
"Dette er linje 4"
On Error Resume Next
Med xOutMail
.To = "Email.here.com"
.CC = "Email.here.com"
.Subject = "E-mail titel her - " & Range("Celle#").Værdi
.Body = xMailBody
.Attachments.Add ActiveWorkbook.FullName
Indstil xMailOut = xOutApp.CreateItem(olMailItem)
Med xMailOut
.Skærm
Slut med
Slut med
ActiveWorkbook.Save
På Fejl GoTo 0
Indstil xOutMail = Ingenting
Indstil xOutApp = Ingenting
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
hvordan man tilføjer signatur, hvis makroen bruges af flere brugere.
for eksempel vil min makro også blive kørt af 3 andre personer. Så hvordan kan makroen bruge signaturen fra den bruger, der kører makroen.
tak på forhånd
Denne kommentar blev minimeret af moderatoren på webstedet
Good Day,
VBA-koden kan automatisk genkende standardsignaturen i afsenderens Outlook og sende e-mail med sin egen signatur gennem Outlook.
Denne kommentar blev minimeret af moderatoren på webstedet
Hvis min brødtekst er linket til pull fra excel-felter, sletter brugen af ​​& .HTMLBody i slutningen af ​​strengen hele brødteksten og efterlader bare signaturen.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har problemer med at køre dette på excel 2016. Jeg får en "Compile Error: User Defined Type Not Defined"-meddelelse. Hjælp venligst!
Denne kommentar blev minimeret af moderatoren på webstedet
Fantastisk!!!!
Denne kommentar blev minimeret af moderatoren på webstedet
Mange tak...
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg har brug for hjælp til min makro, jeg skal indsætte Outlook-signaturen under bordet, kan du hjælpe mig med det?

Privat Sub CommandButton1_Click ()


Dim udsigter som objekt
Dæmp ny e-mail som objekt
Dim xInspicer som objekt
Dim pageEditor som objekt

Indstil outlook = CreateObject("Outlook.Application")
Indstil newEmail = outlook.CreateItem(0)

Med ny e-mail
.To = Sheet5.Range("F1")
.CC = ""
.BCC = ""
.Subject = Sheet5.Range("B5")
.Body = Sheet5.Range("B41")
.Skærm

Indstil xInspect = newEmail.GetInspector
Indstil pageEditor = xInspect.WordEditor

Ark5.Range("B6:I7").Kopi

pageEditor.Application.Selection.Start = Len(.Body)
pageEditor.Application.Selection.End = pageEditor.Application.Selection.Start
pageEditor.Application.Selection.PasteAndFormat (wdFormatPlainText)

.Skærm
Indstil pageEditor = Intet
Indstil xInspect = Intet
Slut med

Indstil nyEmail = Ingenting
Sæt udsigter = Intet

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Bara,
Jeg kan desværre ikke hjælpe dig med det. Tak for din kommentar.
Denne kommentar blev minimeret af moderatoren på webstedet
Kære,
Kan nogen hjælpe mig med min VBA,
Jeg har brug for signaturen i den oprettede e-mail:
Denne kommentar blev minimeret af moderatoren på webstedet
Takket være dig kan jeg tilføje signatur nu, men så fjerner det mellemrum mellem afsnittet i teksten. Please Kan du hjælpe mig?


Sub helloworld()
Dim OutApp som objekt
Dæmp OutMail som objekt
Dæmp celle som område
Dim sti som streng
Sti = Application.ActiveWorkbook.Path
Indstil OutApp = CreateObject("Outlook.Application")

For hver celle i området ("C4:C6")
Indstil OutMail = OutApp.CreateItem(0)
Med OutMail
.Skærm
.Til = celle.Værdi
.Subject = Cells(cell.Row, "D").Value
.HTMLBody = "Kære " & Cells(cell.Row, "B").Value & "," _
& vbNewLine & vbNewLine & _
"Varme hilsner" _
& vbNewLine & vbNewLine & _
"Vi, JK Overseas, vil gerne benytte lejligheden og introducere vores virksomhed JK Overseas, som har været involveret i saltforretningen i de sidste 3 år. Vi er i øjeblikket stærke inden for hjemmemarkedet og ekspansion i udlandet. Vi er leverandør af spisesalt, Vandblødgørende salt, afisningssalt, industrisalt" & "." _
& vbNewLine & vbNewLine & _
"Vi har et samarbejde med store producenter i Indien og indkøber fra dem kvalitetssalt og eksport. Så vi leder efter en pålidelig ekspertimportør såvel som distributøragent til at lave en langsigtet forretning med gensidig fordel" & " ." _
& vbNewLine & vbNewLine & _
"Kontakt os venligst med dit krav eller for andre forespørgsler, du måtte have. Vi leverer pålidelig logistik og levering til tiden. Vi er overbeviste om, at vores mest konkurrencedygtige priser vil matche dine forventninger" & "." _
& vbNewLine & vbNewLine & _
.HTMLKrop

'.Sende
Slut med
Næste celle
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg forsøger at integrere denne kode i det nuværende format, jeg har i øjeblikket, hvorved jeg er i stand til at automatisere e-mails i Excel baseret på et sæt værdier. Enhver hjælp med hensyn til, hvor man kan tilføje 'signatur'-koden inden for det, jeg har i øjeblikket, ville være meget værdsat.

Offentlig under CheckAndSendMail()

'Opdateret af Extendoffice 2018 / 11 / 22

Dim xRgDate Som område

Dim xRgSend As Range

Dim xRgText As Range

Dim xRgDone As Range

Dim xOutApp som objekt

Dim xMailItem som objekt

Dim xLastRow As Long

Dim vbCrLf Som streng

Dim xMailBody As String

Dim xRgDateVal As String

Dim xRgSendVal As String

Dim xMailSubject As String

Dim I Så længe

On Error Resume Next

'Angiv venligst forfaldsdatointervallet

xStrang = "D2:D110"

Indstil xRgDate = Range(xStrang)

'Angiv venligst modtagerens e-mailadresseinterval

xStrang = "C2:C110"

Indstil xRgSend = Range(xStrang)

xStrang = "A2:A110"

Indstil xRgName = Range(xStrang)

'Angiv rækkevidden med påmindet indhold i din e-mail

xStrang = "Z2:Z110"

Indstil xRgText = Range(xStrang)

xLastRow = xRgDate.Rows.Count

Indstil xRgDate = xRgDate(1)

Indstil xRgSend = xRgSend(1)

Indstil xRgName = xRgName(1)

Indstil xRgText = xRgText(1)

Indstil xOutApp = CreateObject("Outlook.Application")

For I = 1 Til xLastRow

xRgDateVal = ""

xRgDateVal = xRgDate.Offset(I - 1).Value

Hvis xRgDateVal <> "" Så

Hvis CDate(xRgDateVal) - Dato <= 30 Og CDate(xRgDateVal) - Dato > 0

xRgSendVal = xRgSend.Offset(I - 1).Værdi

xMailSubject = " JBC-serviceaftale udløber den " & xRgDateVal

vbCrLf = "

"

xMailBody = ""

xMailBody = xMailBody & "Kære " & xRgName.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & " " & xRgText.Offset(I - 1).Value & vbCrLf

xMailBody = xMailBody & ""

Indstil xMailItem = xOutApp.CreateItem(0)

Med xMailItem

.Subject = xMailSubject

.To = xRgSendVal

.CC = "mailcc@justbettercare.com"

.HTMLBody = xMailBody

.Skærm

'.Sende

Slut med

Indstil xMailItem = Ingenting

End If

End If

Næste

Indstil xOutApp = Ingenting

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Det er virkelig nyttig kode
Jeg skal ændre tekstformat fra højre til venstre i xOutMsg-linjen
Hjælp, tak .
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg forsøger at sende individuelle ark fra excel til forskellige e-mails, men det vil kun vedhæfte selve projektmappen. Skal også være i stand til at tilføje min signaturlinje. Nogen hjælp?Sub AST_Email_From_Excel()

Dim emailApplication As Object
Dim emailItem As Object

Indstil emailApplication = CreateObject("Outlook.Application")
Indstil emailItem = emailApplication.CreateItem(0)

' Nu bygger vi e-mailen.

emailItem.to = Range("e2").Værdi

emailItem.CC = Range("g2").Value

emailItem.Subject = "Ikke-returneret Techquidation-udstyr"

emailItem.Body = "Se det vedhæftede regneark for ikke-returnerede varer i dit område"

'Vedhæft den aktuelle arbejdsbog
emailItem.Attachments.Add ActiveWorkbook.FullName

'Vedhæft enhver fil fra din computer.
'emailItem.Attachments.Add ("C:\...)"

'Send e-mailen
'emailItem.send

'Vis e-mailen, så brugeren kan ændre den som ønsket før afsendelse
emailItem.Display

Indstil emailItem = Intet
Indstil emailApplication = Intet

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Chris, Den kode, du har angivet, er blevet ændret. Outlook-signaturen kan nu indsættes i meddelelsesteksten. Prøv det. Tak skal du have. Sub AST_Email_From_Excel()
'Opdateret af Extendoffice 20220211
Dim emailApplication As Object
Dim emailItem As Object
Indstil emailApplication = CreateObject("Outlook.Application")
Indstil emailItem = emailApplication.CreateItem(0)

' Nu bygger vi e-mailen.
emailItem.Display 'Vis e-mailen, så brugeren kan ændre den som ønsket før afsendelse
emailItem.to = Range("e2").Værdi
emailItem.CC = Range("g2").Value
emailItem.Subject = "Ikke-returneret Techquidation-udstyr"
emailItem.HTMLBody = "Se det vedhæftede regneark for ikke-returnerede varer i dit område" & " " & emailItem.HTMLBody

'Vedhæft den aktuelle arbejdsbog
emailItem.Attachments.Add ActiveWorkbook.FullName

Indstil emailItem = Intet
Indstil emailApplication = Intet

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Crystal, Tak fordi du fik det til at tilføje signaturen, synes dog ikke at kunne lide HTMLBody-sektionen. Når jeg kører makroen, fejlretter den på emailItem.HTMLBody = "Se det vedhæftede regneark for ikke-returnerede varer i dit område" & " " & emailItem.HTMLBodyog fuldfører ikke resten.  
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Hvilken Excel-version bruger du? Følgende VBA-kode kan også hjælpe. Prøv det. tak for din tilbagemelding. Sub SendWorkSheet()
'Opdater af Extendoffice 20220218
Dim xFile As String
Dim xFormat så længe
Dim Wb Som arbejdsbog
Dim Wb2 Som arbejdsbog
Dim FilePath som streng
Dim filnavn som streng
Dæmp OutlookApp som objekt
Dæmp OutlookMail som objekt
On Error Resume Next
Application.ScreenUpdating = False
Indstil Wb = Application.ActiveWorkbook
ActiveSheet.Copy
Indstil Wb2 = Application.ActiveWorkbook
Vælg Case Wb.FileFormat
Case xlOpenXMLWorkbook:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Sag xlOpenXMLWorkbookMacroEnabled:
Hvis Wb2.HasVBProject Så
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Else
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormat = xlExcel12
Afslut Vælg
FilePath = Environ$("temp") & "\"
Filnavn = Wb.Name & Format(Nu, "dd-mmm-åå h-mm-ss")
Indstil OutlookApp = CreateObject("Outlook.Application")
Indstil OutlookMail = OutlookApp.CreateItem(0)
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
'xstr = Range("e2") & " ; " & Range("g2")
Med OutlookMail
.Skærm
.To = Range("e2")
.CC = Område("g2")
.BCC = ""
.Subject = "Ikke-returneret Techquidation-udstyr"
.HTMLBody = "Se det vedhæftede regneark for ikke-returnerede varer i dit område" & " " & .HTMLBody
.Attachments.Add Wb2.FullName
'.Sende
Slut med
Wb2.Luk
Dræb FilePath & FileName & xFile
Indstil OutlookMail = Ingenting
Indstil OutlookApp = Ingenting
Application.ScreenUpdating = True
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Ser ud til at være Excel 2016 og VBA 7.1
Denne kommentar blev minimeret af moderatoren på webstedet
Oi Cristal, en minha makro perde a configuração da assinatura at e-mail, com billeder og formatação original. Como consigo resolver?

Sub Geraremail()

Dim OLapp Som Outlook.Application
Dim janela Som Outlook.MailItem

Indstil OLapp = New Outlook.Application
Indstil janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "Kort AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


med Janela
ActiveWorkbook.Save
.Skærm
.To = Sheets("Base").Range("A2").Værdi
.CC = Sheets("Base").Range("A5").Værdi
.Subject = "Kort - Acrilo " & Format(dato, "dd.mm.åå")
assinatura = .Krop
.Body = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & Chr(10) & Chr(10) & assinatura
.Vedhæftede filer.Tilføj Anexo01
Slut med

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Com a mudança abaixo, consegui ajustar. Forfatter et brev til Corpo da menagem fica i Times New Roman. Gostaria de usar Calibri, como posso alterar or código?

Sub Geraremail()

Dim OLapp Som Outlook.Application
Dim janela Som Outlook.MailItem

Indstil OLapp = New Outlook.Application
Indstil janela = OLapp.CreateItem(olMailItem)

Arquivo01 = "Kort AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"


med Janela
ActiveWorkbook.Save
.Skærm
.To = Sheets("Base").Range("A2").Værdi
.CC = Sheets("Base").Range("A5").Værdi
.Subject = "Kort - Acrilo " & Format(dato, "dd.mm.åå")
assinatura = .Krop
.HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila overvejer som vendas previstas no S&OP." & " " & .HTMLBody
.Vedhæftede filer.Tilføj Anexo01
Slut med

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Milla,
Følgende VBA-kode kan hjælpe dig med at ændre skrifttypen på e-mail-brødteksten til Calibri, prøv det. Tak skal du have.
Før du kører koden, skal du klikke Værktøj > Henvisning i Microsoft Visual Basic til applikationer vindue, og tjek derefter Microsoft Word-objektbibliotek afkrydsningsfeltet i Referencer - VBAProject dialogboksen som skærmbilledet vist nedenfor.
[img]I:\工作\周雪明\2022年工作\6月份\文章评论截图\3.png[/img]
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Milla,
Følgende VBA-kode kan hjælpe dig med at ændre skrifttypen på e-mail-brødteksten til Calibri, prøv det. Tak skal du have.
Før du kører koden, skal du klikke Værktøj > Henvisning i Microsoft Visual Basic til applikationer vindue, og tjek derefter Microsoft Word-objektbibliotek afkrydsningsfeltet i Referencer - VBAProject dialogboksen som den vedhæftede fil vist nedenfor.
Sub Geraremail()
Dim OLapp As Outlook.Application
Dim janela As Outlook.MailItem
Dim xDoc As Document 'Click Tools > Reference to enable the Microsoft Word Object Library
On Error Resume Next
Set OLapp = New Outlook.Application
Set janela = OLapp.CreateItem(olMailItem)
Arquivo01 = "Mapa AN"
Anexo01 = ThisWorkbook.Path & "\" & Arquivo01 & ".xlsm"
With janela
  ActiveWorkbook.Save
  .Display
  .To = Sheets("Base").Range("A2").Value
  .CC = Sheets("Base").Range("A5").Value
  .Subject = "Mapa - Acrilo " & Format(Date, "dd.mm.yy")
   assinatura = .Body
  .HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo o mapa de Acrilonitrila considerando as vendas previstas no S&OP." & "<br>" & .HTMLBody
  .Attachments.Add Anexo01
End With
Set xDoc = janela.GetInspector.WordEditor
xDoc.Content.Font.Name = "Calibri"
End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, jeg prøver at rette min VBA-kode. Jeg vil gerne inkludere en af ​​mine outlook-signaturer med et logo. Er dette muligt, og hvor placerer jeg den kode, som jeg bruger i øjeblikket? Enhver hjælp ville være fantastisk.

Sub EmailAspdf()

Dæmp EApp som objekt
Indstil EApp = CreateObject("Outlook.Application")

Dæmp EItem som objekt
Indstil EItem = EApp.CreateItem(0)

Dim invno As Long
Dim brugernavn som streng
Dim amt Som Valuta
Dim dt_issue As Date
Dim term Som Byte
Dim nextrec As Range
Dim sti som streng
Dim fnavn som streng

invno = Range("I4")
kundenavn = Range("A11")
amt = Range("I42")
dt_issue = Range("I6")
term = Range("I7")
sti = "min sti"
fname = invno & " - " & kundenavn

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, IgnorePrintAreas:=False, Filnavn:=sti og fnavn

Indstil nextrec = Sheet3.Range("A1048576").End(xlUp).Offset(1, 0)

nextrec = invno
nextrec.Offset(0, 1) = kundenavn
nextrec.Offset(0, 2) = amt
nextrec.Offset(0, 3) = dt_issue
nextrec.Offset(0, 4) = dt_issue + term
nextrec.Offset(0, 8) = Nu

Ark3.Hyperlinks.Tilføj anker:=nextrec.Offset(0, 6), Adresse:=sti & fnavn & ".pdf"

Med EIitem

.To = Range("A17")

.Subject = Range("A11") & " " & "Faktura nr: " & Range("I4") & " " & "for California Advocates"

.body = "Hej " & Range("A11") & "," & vbNewLine & vbNewLine _
& "Se venligst den vedhæftede faktura for " & Range("A11") & "." & vbNewLine & vbNewLine _
& "Hvis du har spørgsmål, så tøv ikke med at kontakte mig." & vbNewLine & vbNewLine _
& "Bedste" & vbNewLine _
& "Mynamehere" & vbNewLine

.Attachments.Add (sti & fnavn & ".pdf")

.Skærm

Slut med
Exit Sub



End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Hej RoseAnne,

Du kan manuelt tilføje logoet til din signatur på forhånd, før du anvender VBA-koden. Koden skal placeres i modulkodevinduet (tryk på Alt + F11 for at åbne Visual Basic Editor, klik på Indsæt > Modul)
Der er endnu ingen kommentarer her
Efterlad dine kommentarer
Sender som gæst
×
Bedøm dette indlæg:
0   Tegn
Foreslåede steder

Følg os

Copyright © 2009 - www.extendoffice.com. | Alle rettigheder forbeholdes. Drevet af ExtendOffice. | | Sitemap
Microsoft og Office-logoet er varemærker eller registrerede varemærker tilhørende Microsoft Corporation i USA og / eller andre lande.
Beskyttet af Sectigo SSL