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

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 VBA 2 in het modulecodevenster.

3. Nu moet u de .Lichaam lijn in VBA 2 met de code in VBA 1. 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>" & .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 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 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:

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.

Meer tutorials voor mailen in Excel ...


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

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!
officetab onderkant
Comments (27)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
heel erg bedankt, je redt mijn leven met deze sjabloon: D
Deze opmerking is gemaakt door de moderator op de site
Beste Favio,
Blij om te helpen.
Deze opmerking is gemaakt door de moderator op de site
werkt niet met bijlagen in Office 2016
Deze opmerking is gemaakt door de moderator op de site
Beste Chris,
De onderstaande VBA-code kan u helpen. Nadat u de code heeft uitgevoerd, selecteert u cellen met e-mailadressen waarnaar u e-mails wilt verzenden en selecteert u vervolgens de bestanden die u als bijlage in de e-mail wilt bijvoegen wanneer het tweede dialoogvenster verschijnt. En de standaard Outlook-handtekening wordt ook weergegeven in de hoofdtekst van de e-mail. Bedankt voor je reactie.

Sub SendEmailToAddressInCells()
Dim xRg als bereik
Dim xRgElk als bereik
Dim xRgVal als string
Dim xAdres als string
Dim xOutApp als Outlook.Application
Dim xMailOut als Outlook.MailItem
On Error Resume Next
xAddress = ActiveWindow.RangeSelection.Address
Set xRg = Application.InputBox ("Selecteer e-mailadresbereik", "KuTools For Excel", xAddress, , , , , 8)
Als xRg niets is, sluit dan Sub af
Application.ScreenUpdating = False
Stel xOutApp = CreateObject ("Outlook.Application") in
Stel xRg = xRg.SpecialCells (xlCellTypeConstants, xlTextValues) in
Stel xFileDlg = Application.FileDialog (msoFileDialogFilePicker) in
Als xFileDlg.Show = -1 Dan
Voor elke xRgEach In xRg
xRgVal = xRgElke.Waarde
Als xRgVal Like "?*@?*.?*" Dan
Stel xMailOut = xOutApp.CreateItem (olMailItem) in
Met xMailOut
.Scherm
.To = xRgVal
.Onderwerp = "Test"
.HTMLBody = "Dit is een test-e-mail die in Excel wordt verzonden" & "
" & .HTMLBody
Voor elk xFileDlgItem in xFileDlg.SelectedItems
.Bijlagen.Toevoegen xFileDlgItem
Volgende xFileDlgItem
'.Versturen
Eindigt met
End If
Volgende
Stel xMailOut = Niets in
Stel xOutApp = Niets in
Application.ScreenUpdating = True
End If
End Sub
Deze opmerking is gemaakt door de moderator op de site
ik probeer de Outlook-handtekening met de titel "standaard" toe te voegen, maar kan niet lijken dat het werkt.
kunt u alstublieft helpen? Ik geloof dat mijn "xMailout"-logica verkeerd is. dit is mijn vermoedelijke defecte gebied.

Private Sub CommandButton1_Click ()

Dim xOutApp als object
Dim xOutMail als object
Dim xMailBody As String
Dim xMailOut als Outlook.MailItem
On Error Resume Next
Stel xOutApp = CreateObject ("Outlook.Application") in
Stel xOutMail = xOutApp.CreateItem(0) in
xMailBody = "Gegroet:" & vbNewLine & vbNewLine & _
"Dit is regel 1" & vbNewLine & _
"Dit is regel 2" & vbNewLine & _
"Dit is regel 3" & vbNewLine & _
"Dit is lijn 4"
On Error Resume Next
Met xOutMail
.To = "E-mail.hier.com"
.CC = "E-mail.hier.com"
.Subject = "E-mail hier titel - " & Range("Cell#").value
.Body = xMailBody
. Bijlagen.Add ActiveWorkbook.FullName
Stel xMailOut = xOutApp.CreateItem (olMailItem) in
Met xMailOut
.Scherm
Eindigt met
ActiveWorkbook.Opslaan
On Error GoTo 0
Stel xOutMail = Niets in
Stel xOutApp = Niets in
End Sub
Deze opmerking is gemaakt door de moderator op de site
Goede dag,
Uw script is gewijzigd, probeer het alstublieft. Dank u.

Private Sub CommandButton1_Click ()
Dim xOutApp als object
Dim xOutMail als object
Dim xMailBody As String
Dim xMailOut als Outlook.MailItem
On Error Resume Next
Stel xOutApp = CreateObject ("Outlook.Application") in
Stel xOutMail = xOutApp.CreateItem(0) in
xMailBody = "Gegroet:" & vbNewLine & vbNewLine & _
"Dit is regel 1" & vbNewLine & _
"Dit is regel 2" & vbNewLine & _
"Dit is regel 3" & vbNewLine & _
"Dit is lijn 4"
On Error Resume Next
Met xOutMail
.To = "E-mail.hier.com"
.CC = "E-mail.hier.com"
.Subject = "E-mail hier titel - " & Range("Cell#").Waarde
.Body = xMailBody
.Bijlagen.Add ActiveWorkbook.FullName
Stel xMailOut = xOutApp.CreateItem (olMailItem) in
Met xMailOut
.Scherm
Eindigt met
Eindigt met
ActiveWorkbook.Opslaan
On Error GoTo 0
Stel xOutMail = Niets in
Stel xOutApp = Niets in
End Sub
Deze opmerking is gemaakt door de moderator op de site
hoe een handtekening toe te voegen als de macro door meerdere gebruikers wordt gebruikt.
mijn macro zal bijvoorbeeld ook door 3 andere personen worden beheerd. Dus hoe kan de macro de handtekening gebruiken van de gebruiker die de macro uitvoert.
dank bij voorbaat
Deze opmerking is gemaakt door de moderator op de site
Good Day,
De VBA-code kan automatisch de standaardhandtekening herkennen in de Outlook van de afzender, en e-mail versturen met zijn eigen handtekening via Outlook.
Deze opmerking is gemaakt door de moderator op de site
Als mijn hoofdtekst is gekoppeld om uit Excel-velden te halen, wist het gebruik van & .HTMLBody aan het einde van de tekenreeks alle hoofdtekst en laat de handtekening gewoon achter.
Deze opmerking is gemaakt door de moderator op de site
Ik heb problemen om dit in Excel 2016 uit te voeren. Ik krijg het bericht "Compileerfout: door gebruiker gedefinieerd type niet gedefinieerd". Help alstublieft!
Deze opmerking is gemaakt door de moderator op de site
Super!!!!
Deze opmerking is gemaakt door de moderator op de site
Thanks a lot ...
Deze opmerking is gemaakt door de moderator op de site
Hallo, ik heb hulp nodig met mijn macro, ik moet de Outlook-handtekening onder de tafel invoegen, kun je me daarmee helpen?

Private Sub CommandButton1_Click ()


Dim vooruitzichten als object
Dim nieuwE-mail als object
Dim xInspecteren als object
Pagina dimmen Editor als object

Outlook instellen = CreateObject ("Outlook.Application")
Stel newEmail = outlook.CreateItem(0) in

Met nieuweE-mail
.To = Blad5.Bereik ("F1")
.CC = ""
.BCC = ""
.Onderwerp = Blad5.Bereik ("B5")
.Body = Blad5.Bereik ("B41")
.Scherm

Stel xInspect = newEmail.GetInspector in
Set pageEditor = xInspect.WordEditor

Blad5.Bereik("B6:I7").Kopiëren

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

.Scherm
Set pageEditor = Niets
Stel xInspect = Niets in
Eindigt met

Stel nieuweE-mail = Niets in
Outlook instellen = Niets

End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo Bara,
Sorry kan je daar niet mee helpen. Bedankt voor je reactie.
Deze opmerking is gemaakt door de moderator op de site
Geachte,
Kan iemand mij helpen met mijn VBA,
Ik heb de handtekening nodig in de aangemaakte e-mail:
Deze opmerking is gemaakt door de moderator op de site
Dankzij jou kan ik nu een handtekening toevoegen, maar dan worden spaties tussen alinea's tekst verwijderd. Kan je mij alsjeblieft helpen ?


Sub helloworld()
Dim Out-app als object
Dim OutMail als object
Dim cel als bereik
Dim pad als string
Pad = Toepassing.ActiveWorkbook.Path
Stel OutApp = CreateObject ("Outlook.Application") in

Voor elke cel binnen bereik ("C4:C6")
Set OutMail = OutApp.CreateItem (0)
Met OutMail
.Scherm
.To = cel.Waarde
.Onderwerp = Cellen(cel.Rij, "D").Waarde
.HTMLBody = "Beste " & Cellen (cel. Rij, "B"). Waarde & "," _
& vbNieuweLijn & vbNieuweLijn & _
"Vriendelijke groeten" _
& vbNieuweLijn & vbNieuweLijn & _
"Wij, JK Overseas, willen graag van de gelegenheid gebruik maken en ons bedrijf JK Overseas introduceren, dat de afgelopen 3 jaar betrokken is geweest bij de zouthandel. We zijn momenteel sterk in het binnenland en breiden uit in het buitenland. Wij zijn de leverancier van eetbaar zout, Wateronthardingszout, dooizout, industrieel zout" & "." _
& vbNieuweLijn & vbNieuweLijn & _
"We hebben een band met grootschalige fabrikanten in India en kopen van hen kwaliteitszout en export. Dus we zijn op zoek naar een betrouwbare deskundige importeur en een distributeur om een ​​langetermijnbedrijf te maken met wederzijds voordeel" & " ." _
& vbNieuweLijn & vbNieuweLijn & _
"Neem contact met ons op met uw wensen of voor andere vragen. Wij bieden betrouwbare logistiek en tijdige levering. We zijn ervan overtuigd dat onze meest concurrerende prijzen aan uw verwachtingen zullen voldoen" & "." _
& vbNieuweLijn & vbNieuweLijn & _
.HTMLBody

'.Versturen
Eindigt met
Volgende cel
End Sub
Deze opmerking is gemaakt door de moderator op de site
Ik probeer deze code te integreren in het huidige formaat dat ik momenteel heb, waarbij ik e-mails binnen Excel kan automatiseren op basis van een bepaald waardenbereik. Alle hulp met betrekking tot waar de 'handtekening'-code moet worden toegevoegd aan wat ik momenteel heb, zou zeer op prijs worden gesteld.

Openbare sub CheckAndSendMail()

'Bijgewerkt door' Extendoffice 2018 / 11/ 22

Dim xRgDate als bereik

Dim xRgSend As Range

Dim xRgText As Range

Dim xRgGereed als bereik

Dim xOutApp als object

Dim xMailItem als object

Dim xLaatste Rij Zo Lang

Dim vbCrLf als string

Dim xMailBody As String

Dim xRgDateVal als string

Dim xRgSendVal als string

Dim xMailOnderwerp als tekenreeks

Dim ik zo lang

On Error Resume Next

'Geef de vervaldatum op'

xStrRang = "D2:D110"

Stel xRgDate = Bereik (xStrRang) in

'Geef het e-mailadresbereik van de ontvanger op'

xStrRang = "C2:C110"

Stel xRgSend = Bereik (xStrRang) in

xStrRang = "A2:A110"

Stel xRgName = Bereik (xStrRang) in

'Specificeer het bereik met herinnerde inhoud in uw e-mail

xStrRang = "Z2:Z110"

Stel xRgText = Bereik (xStrRang) in

xLastRow = xRgDate.Rijen.Aantal

Stel xRgDatum = xRgDatum(1) in

Stel xRgSend = xRgSend(1) in

Stel xRgName = xRgName(1) in

Stel xRgText = xRgText(1) in

Stel xOutApp = CreateObject ("Outlook.Application") in

Voor I = 1 Tot xLaatste Rij

xRgDateVal = ""

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

Als xRgDateVal <> "" Dan

Als CDate(xRgDateVal) - Datum <= 30 en CDate(xRgDateVal) - Datum > 0 Dan

xRgSendVal = xRgSend.Offset(I - 1).Waarde

xMailSubject = " JBC-serviceovereenkomst verloopt op de " & xRgDateVal

vbCrLf = "

"

xMailBody = ""

xMailBody = xMailBody & "Geachte" & xRgName.Offset (I - 1). Waarde & vbCrLf

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

xMailBody = xMailBody & ""

Stel xMailItem = xOutApp.CreateItem(0) in

Met xMailItem

.Onderwerp = xMailOnderwerp

.To = xRgSendVal

.CC = "mailcc@justbettercare.com"

.HTMLBody = xMailBody

.Scherm

'.Versturen

Eindigt met

Stel xMailItem = Niets in

End If

End If

Volgende

Stel xOutApp = Niets in

End Sub
Deze opmerking is gemaakt door de moderator op de site
Het is echt een handige code
Ik moet de tekstindeling van rechts naar links wijzigen in de xOutMsg-regel
Help alsjeblieft .
Deze opmerking is gemaakt door de moderator op de site
Ik probeer afzonderlijke bladen van Excel naar verschillende e-mails te verzenden, maar het zal alleen de werkmap zelf bijvoegen. Moet ook mijn handtekeningregel kunnen toevoegen. Hulp? Sub AST_Email_From_Excel()

Dim e-mailToepassing als object
Dim e-mailItem als object

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

' Nu bouwen we de e-mail.

emailItem.to = Bereik ("e2"). Waarde

emailItem.CC = Bereik ("g2"). Waarde

emailItem.Subject = "Niet-geretourneerde Techquidation-apparatuur"

emailItem.Body = "Zie de bijgevoegde spreadsheet voor niet-geretourneerde items in uw regio"

'Huidige werkmap bijvoegen'
emailItem.Attachments.Add ActiveWorkbook.FullName

'Voeg een willekeurig bestand van uw computer toe.
'emailItem.Attachments.Add ("C:\...)"

'Verstuur de e-mail'
'emailItem.send'

'Geef de e-mail weer zodat de gebruiker deze naar wens kan wijzigen voordat hij wordt verzonden
emailItem.Display

Stel emailItem = Niets in
Stel emailApplication = Niets in

End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo Chris, de code die je hebt opgegeven is gewijzigd. De Outlook-handtekening kan nu in de berichttekst worden ingevoegd. Probeer het alsjeblieft. Dank u. Sub-AST_Email_From_Excel()
'Bijgewerkt door' Extendoffice 20220211
Dim e-mailToepassing als object
Dim e-mailItem als object
Stel emailApplication = CreateObject ("Outlook.Application") in
Stel emailItem = emailApplication.CreateItem(0) in

' Nu bouwen we de e-mail.
emailItem.Display 'Geef de e-mail weer zodat de gebruiker deze naar wens kan wijzigen voordat hij wordt verzonden
emailItem.to = Bereik ("e2"). Waarde
emailItem.CC = Bereik ("g2"). Waarde
emailItem.Subject = "Niet-geretourneerde Techquidation-apparatuur"
emailItem.HTMLBody = "Bekijk de bijgevoegde spreadsheet voor niet-geretourneerde items in uw regio" & " " & emailItem.HTMLBody

'Huidige werkmap bijvoegen'
emailItem.Attachments.Add ActiveWorkbook.FullName

Stel emailItem = Niets in
Stel emailApplication = Niets in

End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo Crystal, bedankt voor het toevoegen van de handtekening, lijkt de HTMLBody-sectie echter niet leuk te vinden. Wanneer ik de macro uitvoer, debugt het op emailItem.HTMLBody = "Zie de bijgevoegde spreadsheet voor niet-geretourneerde items in uw gebied" & " " & emailItem.HTMLBodyand voltooit de rest niet.  
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Welke Excel-versie gebruik je? De volgende VBA-code kan ook helpen. Probeer het alsjeblieft. Bedankt voor je feedback. Sub SendWorkSheet()
'Bijwerken door' Extendoffice 20220218
Dim xFile als string
Dim xFormaat zo lang
Dim Wb als werkboek
Dim Wb2 als werkboek
Dim FilePath als string
Dim FileName As String
Dim Outlook-app als object
Dim OutlookMail als object
On Error Resume Next
Application.ScreenUpdating = False
Stel Wb = Application.ActiveWorkbook in
ActiveSheet.Copy
Stel Wb2 = Application.ActiveWorkbook in
Selecteer Case Wb.Bestandsindeling
Case xlOpenXMLWerkboek:
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
Case xlOpenXMLWorkbookMacroIngeschakeld:
Als Wb2.HasVBProject Dan
xFile = ".xlsm"
xFormat = xlOpenXMLWorkbookMacroEnabled
Anders
xFile = ".xlsx"
xFormat = xlOpenXMLWorkbook
End If
Case Excel8:
xFile = ".xls"
xFormaat = Excel8
Case xlExcel12:
xFile = ".xlsb"
xFormaat = xlExcel12
End Select
FilePath = Environ$("temp") & "\"
Bestandsnaam = Wb.Naam & formaat (Nu, "dd-mmm-jj h-mm-ss")
Stel OutlookApp = CreateObject ("Outlook.Application") in
Stel OutlookMail = OutlookApp.CreateItem(0) in
Wb2.SaveAs FilePath & FileName & xFile, FileFormat:=xFormat
'xstr = Bereik("e2") & " ; " & Bereik("g2")
Met OutlookMail
.Scherm
.To = Bereik ("e2")
.CC = Bereik ("g2")
.BCC = ""
.Subject = "Niet-geretourneerde Techquidation-apparatuur"
.HTMLBody = "Zie de bijgevoegde spreadsheet voor niet-geretourneerde items in uw regio" & " " & .HTMLBody
.Bijlagen.Wb2.FullName toevoegen
'.Versturen
Eindigt met
Wb2.Sluiten
Kill FilePath & FileName & xFile
Stel OutlookMail = niets in
Stel OutlookApp = Niets in
Application.ScreenUpdating = True
End Sub
Deze opmerking is gemaakt door de moderator op de site
Lijkt Excel 2016 en VBA 7.1 te zijn
Deze opmerking is gemaakt door de moderator op de site
Oi Cristal, een minha-macro per e-mail, com imagens en formatação original. Como consigo-resolver?

SubGeremail()

Dim OLapp als Outlook.Application
Dim janela As Outlook.MailItem

Stel OLapp = Nieuwe Outlook.Applicatie in
Stel janela = OLapp.CreateItem (olMailItem) in

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


Met janela
ActiveWorkbook.Opslaan
.Scherm
.To = Bladen("Basis").Bereik("A2").Waarde
.CC = Bladen ("Basis"). Bereik ("A5"). Waarde
.Subject = "Kaart - Acrilo" & Formaat (Datum, "dd.mm.jj")
assinatura = .Lichaam
.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
.Bijlagen.Anexo01 toevoegen
Eindigt met

End Sub
Deze opmerking is gemaakt door de moderator op de site
Com a mudança abaixo, consegui ajustar. Een letra do corpo da mensagem fica em Times New Roman. Gostaria de usar Calibri, como posso alterar of código?

SubGeremail()

Dim OLapp als Outlook.Application
Dim janela As Outlook.MailItem

Stel OLapp = Nieuwe Outlook.Applicatie in
Stel janela = OLapp.CreateItem (olMailItem) in

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


Met janela
ActiveWorkbook.Opslaan
.Scherm
.To = Bladen("Basis").Bereik("A2").Waarde
.CC = Bladen ("Basis"). Bereik ("A5"). Waarde
.Subject = "Kaart - Acrilo" & Formaat (Datum, "dd.mm.jj")
assinatura = .Lichaam
.HTMLBody = "Prezados/as," & Chr(10) & Chr(10) & "Segue anexo of mapa de Acrilonitrila considerando as vendas previstas no S&OP." & " " & .HTMLBody
.Bijlagen.Anexo01 toevoegen
Eindigt met

End Sub
Deze opmerking is gemaakt door de moderator op de site
Hallo Milla,
De volgende VBA-code kan u helpen het lettertype van de e-mailtekst te wijzigen in Calibri, probeer het alstublieft. Dank je.
Voordat u de code uitvoert, moet u op . klikken Toolbox > Referentienummer functie in het Microsoft Visual Basic voor toepassingen venster, en controleer vervolgens de Microsoft Word-objectbibliotheek checkbox in de Referenties - VBAProject dialoogvenster zoals de onderstaande schermafbeelding.
[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
Deze opmerking is gemaakt door de moderator op de site
Hallo Milla,
De volgende VBA-code kan u helpen het lettertype van de e-mailtekst te wijzigen in Calibri, probeer het alstublieft. Dank je.
Voordat u de code uitvoert, moet u op . klikken Toolbox > Referentienummer functie in het Microsoft Visual Basic voor toepassingen venster, en controleer vervolgens de Microsoft Word-objectbibliotheek checkbox in de Referenties - VBAProject dialoogvenster als het hieronder getoonde bijgevoegde bestand.
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
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties