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

Hoe een knop toepassen om e-mail te verzenden met het huidige Word-bestand als bijlage? 

Als u een e-mailbericht vanuit een Word-document via Outlook wilt verzenden en ook het huidige Word-bestand wilt bijvoegen, kunt u een opdrachtknop maken en vervolgens het bericht verzenden door op deze knop te klikken zonder Outlook te openen. In dit artikel zal ik introduceren hoe u er snel en gemakkelijk mee om kunt gaan.

Pas een knop toe om e-mail te verzenden met het huidige Word-bestand als bijlage


Pas een knop toe om e-mail te verzenden met het huidige Word-bestand als bijlage

Voer de volgende stappen uit om deze taak in Word-bestand op te lossen:

1. Eerst moet u een opdrachtknop maken, klik hier Ontwikkelaar > Oude tools > Commandoknop (ActiveX-besturingselement), zie screenshot:

doc-knop om e-mail te verzenden 1

2. Selecteer de knop en klik Vastgoed onder de Ontwikkelaar tab, in de Vastgoed typ de bijschrifttekst die u nodig hebt in het Onderschrift veld, zie screenshot:

doc-knop om e-mail te verzenden 2

3. Sluit vervolgens het Vastgoed klik nu met de rechtermuisknop op de knop en kies Bekijk code, zie screenshot:

doc-knop om e-mail te verzenden 3

4. En dan, in het weergegeven Microsoft Visual Basic voor toepassingen venster, kopieer en plak de onderstaande code tussen de originele scripts, zie screenshot:

Dim xOutlookObj As Object
    Dim xEmail As Object
    Dim xDoc As Document
    Application.ScreenUpdating = False
    Set xOutlookObj = CreateObject("Outlook.Application")
    Set xEmail = xOutlookObj.CreateItem(olMailItem)
    Set xDoc = ActiveDocument
    xDoc.Save
    With xEmail
        .Subject = "Fax-data"
        .Body = "This is a test email."
        .To = "yy@addin99.com"
        .Importance = olImportanceNormal
        .Attachments.Add xDoc.FullName
        .Display
    End With
    Set xDoc = Nothing
    Set xEmail = Nothing
    Set xOutlookObj = Nothing
    Application.ScreenUpdating = True

doc-knop om e-mail te verzenden 4

Opmerking:: In de bovenstaande code moet u het onderwerp, de hoofdtekst of het verzonden adres naar wens wijzigen.

5. Bewaar en sluit deze code vervolgens, klik op Ontwerpmodus om de ontwerpmodus uit te schakelen. Wanneer u nu op de opdrachtknop klikt die u hebt gemaakt, wordt een e-mail gemaakt met het huidige Word-document als bijlage, zie screenshot:

doc-knop om e-mail te verzenden 5

6. Eindelijk hoeft u alleen maar te klikken Verzenden knop om dit bericht te verzenden.


Aanbevolen Word-productiviteitstools

 

Kutools For Word - Meer dan 100 geavanceerde functies voor Word, bespaar 50% tijd

  • Ingewikkelde en herhaalde bewerkingen kunnen een eenmalige verwerking in seconden worden uitgevoerd.
  • Voeg meerdere afbeeldingen in verschillende mappen tegelijk in een Word-document in.
  • Voeg meerdere Word-bestanden in mappen samen en combineer ze tot één met de door u gewenste volgorde.
  • Splits het huidige document in afzonderlijke documenten op basis van koptekst, sectie-einde of andere criteria.
  • Converteer bestanden tussen Doc en Docx, Docx en PDF, verzameling tools voor algemene conversies en selectie, enzovoort ...
Heb je vragen? Stel ze hier. (29)
Nog geen beoordelingen. Beoordeel als eerste!
Deze opmerking is gemaakt door de moderator op de site
Ik probeer de e-mail te laten verzenden met als onderwerp de inhoud van een van mijn velden. Is dit mogelijk?
Deze opmerking is gemaakt door de moderator op de site
Hola, me podrían apoyar para que el archive se convierta en PDF y se adjunte al correo en ves del word por favor.
Heel hartelijk bedankt.
Deze opmerking is gemaakt door de moderator op de site
Hallo Office-team uitbreiden,

Ik geloof dat 'xEmile' verkeerd gespeld is. Het moet 'xEmail' zijn.

Terwijl de code wordt uitgevoerd en er is geen probleem, zal de volgende instructie niets doen:

Stel xE-mail = Niets in
Deze opmerking is gemaakt door de moderator op de site
Hallo, Abhi,
Bedankt voor je reactie, zoals je zei, de 'xEmile' is verkeerd gespeld, het zou 'xEmail' moeten zijn. Ik heb de code bijgewerkt.
Nogmaals bedankt!
Deze opmerking is gemaakt door de moderator op de site
Kan dit worden gedaan zodat u slechts één pagina van een document verzendt?
Deze opmerking is gemaakt door de moderator op de site
Hallo, Don,
Om uw taak uit te voeren, past u de onderstaande code toe: in de code moet u de startpagina en eindpagina naar die van uzelf wijzigen:

Private Sub CommandButton1_Click ()

Dim xCurPageStart As Long, xCurPageEnd As Long, xCurPageRange As Range

Dim xCurPage als geheel getal, xPages als geheel getal

Dim xOutlookObj als object

Dim xE-mail als object

Dim xDoc als document, xNewDoc als document

Dim xFilePath als string

Dim xOldStart zo lang, xOldEnd zo lang

On Error Resume Next

Application.ScreenUpdating = False

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

Stel xEmail = xOutlookObj.CreateItem (olMailItem) in

xFilePath = CreateObject("WScript.Shell").SpecialFolders(16)

Stel xDoc = ActiveDocument in

xOldStart = xDoc.Applicatie.Selectie.Start

xOldEnd = xDoc.Applicatie.Selectie.Einde

xDoc.Opslaan

xFilePath = xFilePath + "\bijgevoegd bestand" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'bijgevoegd bestand is de naam van het bijlagebestand, verander naar wens

xCurPageStart = 2 'startpagina'

xCurPageEnd = 2 'eindpagina'

xPages = Selectie.Informatie(wdNumberOfPagesInDocument)

xCurPageStart = Selectie.GoTo(wat:=wdGoToPage, Which:=wdGoToNext, Naam:=xCurPageStart).Start

Als xCurPage = xPages Dan

xCurPageEnd = ActiveDocument.Content.End

Anders

xCurPageEnd = Selectie.GoTo(wat:=wdGoToPage, Which:=wdGoToNext, Naam:=xCurPageEnd + 1).Start

End If

Stel xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd) in

xCurPageRange.Selecteer

xCurPageRange.Kopiëren

Stel xNewDoc = Application.Documents.Add (Visible:=False) in

xNewDoc.Activeren

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 Bestandsnaam:=xFilePath

xNieuwDoc.Sluiten

xDoc.Range(xOldStart, xOldEnd).Selecteren

Met xE-mail

.Subject = "Faxgegevens"

.Body = "Dit is een test-e-mail."

.To = "yy@addin99.com"

.Belang = olBelangNormaal

.Bijlagen.Toevoegen xFilePath

.Scherm

Eindigt met

VBA.Kill xFilePath

Stel xDoc = Niets in

Stel xE-mail = Niets in

Stel xOutlookObj = Niets in

Application.ScreenUpdating = True

End Sub
Deze opmerking is gemaakt door de moderator op de site
Ik heb een invulbaar formulier gemaakt in MS Word. Ik heb verouderde tools gebruikt voor berekeningen enz. Ik heb ook een verzendknop toegevoegd waarmee het formulier naar e-mail kan worden verzonden. Het probleem is dat wanneer ik dit document heropen na het opslaan, het niet werkt. Ik heb zelfs geprobeerd het op te slaan als een macro-enabled document, maar het heeft geen zin. Kunt u alstublieft helpen?
Bedankt
Deze opmerking is gemaakt door de moderator op de site
Ik had het eerst werkend, en om de een of andere reden geeft het me nu een fout van fout 429 over activeX-component kan geen object maken. ik heb letterlijk gewoon gekopieerd en geplakt. Dit werkte eerder, maar ik heb zojuist de lettergrootte gewijzigd, de knop groter gemaakt en het bijschrift opnieuw gelabeld. Ik denk niet dat ik per ongeluk een aantal andere instellingen heb gewijzigd? enig idee wat het kan zijn?
Deze opmerking is gemaakt door de moderator op de site
Hoi! Ik wil graag dat de opdrachtknop een e-mail verzendt met het Word-document als de hoofdtekst van de e-mail (mijn Word-document is een formulier). Is er een manier om dat te doen?
Deze opmerking is gemaakt door de moderator op de site
Ik wil graag dat mijn document als PDF-document wordt verzonden in plaats van als Word-document.
Deze opmerking is gemaakt door de moderator op de site
Bijvoorbeeld tekst uit een tekstvak/tekstveld in het Word-document gebruiken en als tekst invoegen in de onderwerpregel van je e-mail?
Deze opmerking is gemaakt door de moderator op de site
Ja dit is ook wat ik zoek kan iemand helpen met dit verzoek?
Deze opmerking is gemaakt door de moderator op de site
Geldt dit ook voor Lotus Notes?
Wat moet ik veranderen in "xOutlookObj"?
Deze opmerking is gemaakt door de moderator op de site
Hallo kantoor uitbreiden,
Kunnen we een ander e-mailadres instellen dat niet aan Outlook is gekoppeld? Wilt u rechtstreeks e-mailen naar uw GoDaddy-account?
Deze opmerking is gemaakt door de moderator op de site
Ik probeer dezelfde informatie te achterhalen. Ik gebruik gmail en ik moet een formulier maken om te verzenden naar verschillende e-mailadressen die automatisch kunnen worden teruggestuurd naar mijn gmail-account.
Deze opmerking is gemaakt door de moderator op de site
Ik heb het document gemaakt, maar mijn probleem is nu dat als ik dit formulier verzend om te zeggen dat 4 mensen het moeten invullen, wanneer ze het openen vanuit de e-mailbijlage, het in alleen-lezen modus wordt geopend en wanneer ze op verzenden klikken, wordt hen gevraagd om op te slaan zoals voorheen hierdoor kan de code een aan mij geadresseerde e-mail openen. Is er een andere manier om dit te omzeilen dan ze de locatie van het bestand te geven?
Deze opmerking is gemaakt door de moderator op de site
Kun je Bcc aan deze code toevoegen? Ik heb geprobeerd Bcc toe te voegen en krijg een compileerfout voor de verwachte expressie.
Deze opmerking is gemaakt door de moderator op de site
Hallo Heather,

U kunt Bcc aan deze code toevoegen. U kunt bijvoorbeeld .Bcc = "zmt@addin99.com" net onder .To = "yy@addin99.com" toevoegen. Dus de code wordt:

Dim xOutlookObj als object
Dim xE-mail als object
Dim xDoc als document
Application.ScreenUpdating = False
Stel xOutlookObj = CreateObject ("Outlook.Application") in
Stel xEmail = xOutlookObj.CreateItem (olMailItem) in
Stel xDoc = ActiveDocument in
xDoc.Opslaan
Met xE-mail
.Subject = "Faxgegevens"
.Body = "Dit is een test-e-mail."
.To = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Belang = olBelangNormaal
.Bijlagen.Toevoegen xDoc.FullName
.Scherm
Eindigt met
Stel xDoc = Niets in
Stel xE-mail = Niets in
Stel xOutlookObj = Niets in
Application.ScreenUpdating = True

Zie de bijgevoegde foto. Prettige dag.
Hoogachtend,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Deze opmerking is gemaakt door de moderator op de site
Hallo mensen,

Ik wil een knop toepassen waar ik op klik en het document als e-mail, niet als bijlage, naar één e-mailadres verzenden. Zodat het document de tekst van de e-mail is. Net als het effect van de knop "verzenden naar ontvanger" op het lint.

Kan iemand mij daar de juiste code voor geven?

Dank je.
Deze opmerking is gemaakt door de moderator op de site
Hallo,
Het kan zijn dat de code het niet kan helpen om het huidige Word-document als de hoofdtekst van de e-mail te verzenden, anders gaan de afbeelding en de bestandsindeling in het document verloren.
Als u het huidige document als e-mailtekst wilt verzenden, kan Afdruk samenvoegen u een plezier doen.
Heb je de Mail Merge nodig voor het verzenden van e-mail?
Als je het nodig hebt, kun je hier reageren.
Dank je!
Deze opmerking is gemaakt door de moderator op de site
Hallo,

dank u voor uw hulp!

Ik zou het proberen met jouw suggestie. Dus ja, ik heb de Mail Merge nodig voor het verzenden van e-mail.
Deze opmerking is gemaakt door de moderator op de site
Hallo,

dank u voor uw hulp!

Ik zou het proberen met jouw suggestie. Zou je me de code voor mail merge kunnen geven?

Bedankt!
Deze opmerking is gemaakt door de moderator op de site
Hallo,
Om het huidige Word-document als e-mailtekst te verzenden, kunt u de Verzenden naar e-mailontvanger commando aan uw QAT, doe dit als volgt:
1. Open uw Word-bestand dat u wilt verzenden en klik vervolgens op Dien in > Opties.
2. Selecteer in het linkerdeelvenster Snelle toegangswerkbalk.
3. kiezen Commando's niet in het lint van de Kies opdrachten van.
4. Kies en selecteer Verzenden naar e-mailontvanger en klik op de knop Toevoegen>>.
5. klikken OK om het dialoogvenster te sluiten.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Nu dit Verzenden naar e-mailontvanger commando zal verschijnen in de Snelle toegangswerkbalk bovenaan uw Word-venster. Vervolgens kunt u de relatieve informatie invoegen in de berichtkop. Klik na het voltooien van de informatie op Stuur een kopie, wordt het bericht met het huidige word-document als body in één keer verzonden.

https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-3.png

Probeer dit alsjeblieft, ik hoop dat het je kan helpen!
Deze opmerking is gemaakt door de moderator op de site
Ik heb gemerkt dat de knop werkt om een ​​e-mail te openen, maar bij het gebruik van mailmerge wordt de VBA-knop om de een of andere reden inactief?
Hoe kan ik ervoor zorgen dat wanneer mailmerging wordt gebruikt, de knop werkt voor de gebruiker om het formulier in te vullen en vervolgens de knop te activeren?
Deze opmerking is gemaakt door de moderator op de site
Hallo Mike,
Wanneer ik de mailmerge-functie gebruik, is de knop actief.
Kunt u uw probleem nader toelichten?
Of u kunt hier uw bestand uploaden, zodat wij kunnen kijken waar het probleem zit.
Dank je!
Deze opmerking is gemaakt door de moderator op de site
Hallo Skyyang,

Zie het bericht dat ik hieronder heb geplaatst met de kopie als bijlage.
Deze opmerking is gemaakt door de moderator op de site
Hoi,
Zie onderstaand bijgevoegd document.
Ik moet het bijwerken voor het gebruik van verlengingen in 2023 en bij het samenvoegen lijkt de knop uitgeschakeld te worden, omdat verschillende leden me vertelden dat het niet werkt.

Hartelijk dank,

Mike
Deze opmerking is gemaakt door de moderator op de site
Hallo Mike,
Ik heb je bestand in mijn computer getest, het werkt goed. Ik gebruik Office 2019. Zie de onderstaande demo:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Deze opmerking is gemaakt door de moderator op de site
Hallo Skyyang,

Ik ontdekte dat dit werkt wanneer een gebruiker MS Word heeft, maar het lijkt e-mails zoals @hotmail; @gmail; en @live e-mailadressen die gebruikers problemen hebben waarbij de knop niet werkt?
Het lijkt erop dat het ook niet werkt op smartphones als de gebruiker erop vertrouwt deze te gebruiken in plaats van een computer.
Ten slotte heb ik een reactie gekregen van een andere gebruiker die Windows 11 gebruikt, waarbij de knop helemaal niet werkt.

Wat heb je ervaren met de bovenstaande voorbeelden?

Hartelijk dank,

Mike
Er zijn nog geen reacties geplaatst
Laat uw commentaar
Posten als gast
×
Beoordeel dit bericht:
0   Personages
Voorgestelde locaties

Volg ons

Copyright © 2009 - www.extendoffice.com. | Alle rechten voorbehouden. Aangedreven door ExtendOffice. | Sitemap
Microsoft en het Office-logo zijn handelsmerken of gedeponeerde handelsmerken van Microsoft Corporation in de Verenigde Staten en / of andere landen.
Beschermd door Sectigo SSL