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

Hvordan anvender jeg en knap til at sende e-mail med den aktuelle Word-fil vedhæftet? 

Hvis du har brug for at sende en e-mail-besked fra et Word-dokument via Outlook og også vedhæfte den aktuelle Word-fil, kan du oprette en kommandoknap og derefter sende beskeden ved at klikke på denne knap uden at åbne Outlook. Denne artikel vil jeg introducere, hvordan man håndterer det hurtigt og nemt.

Anvend en knap for at sende e-mail med den aktuelle Word-fil vedhæftet


Anvend en knap for at sende e-mail med den aktuelle Word-fil vedhæftet

Benyt følgende trin for at løse dette job i Word-fil:

1. Først skal du oprette en kommandoknap, klik venligst Udvikler > Ældre værktøjer > Kommando-knap (ActiveX-kontrol), se skærmbillede:

doc-knap for at sende e-mail 1

2. Vælg knappen, og klik på Ejendomme under Udvikler fanebladet i Ejendomme i ruden, skal du skrive den billedtekst, du har brug for, i Caption felt, se skærmbillede:

doc-knap for at sende e-mail 2

3. Luk derefter Ejendomme højreklik nu på knappen og vælg Vis kode, se skærmbillede:

doc-knap for at sende e-mail 3

4. Og så i det viste Microsoft Visual Basic til applikationer vindue, kopier og indsæt nedenstående kode mellem de originale scripts, se skærmbillede:

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-knap for at sende e-mail 4

Bemærk: I ovenstående kode skal du ændre emne, brødtekst eller sendt adresse til dit behov.

5. Gem derefter og luk denne kode, klik på Design Mode for at slå designtilstand fra. Når du klikker på den kommandoknap, du har oprettet, oprettes der nu en e-mail med det aktuelle Word-dokument som vedhæftet fil, se skærmbillede:

doc-knap for at sende e-mail 5

6. Endelig skal du bare klikke Send knappen for at sende denne besked.


Anbefalede Word-produktivitetsværktøjer

 

Kutools For Word - Mere end 100 avancerede funktioner til Word, spar 50 % tid

  • Komplicerede og gentagne operationer kan udføres engangsbehandling på få sekunder.
  • Indsæt flere billeder på tværs af mapper i Word-dokumentet på én gang.
  • Flet og kombiner flere Word-filer på tværs af mapper i en med den ønskede rækkefølge.
  • Opdel det aktuelle dokument i separate dokumenter efter overskrift, sektionsskift eller andre kriterier.
  • Konverter filer mellem Doc og Docx, Docx og PDF, samling af værktøjer til almindelige konverteringer og markering osv. ...
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
Jeg forsøger at få e-mailen sendt med emnelinjen som indholdet af et af mine felter. Er dette muligt?
Denne kommentar blev minimeret af moderatoren på webstedet
Hola, mig podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
Mange tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Extend Office Team,

Jeg tror, ​​at 'xEmile' er stavet forkert. Det skal være 'xEmail'.

Mens koden kører, og der ikke er noget problem, vil følgende erklæring ikke gøre noget:

Indstil xEmail = Ingenting
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Abhi,
Tak for din kommentar, som du sagde, 'xEmile' er stavet forkert, det burde være 'xEmail'. Jeg har opdateret koden.
Tak igen!
Denne kommentar blev minimeret af moderatoren på webstedet
Kan dette gøres, så du kun sender én side af et dokument?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Don,
For at håndtere din opgave skal du anvende nedenstående kode, i koden, du skal ændre startsiden og slutsiden til din egen:

Privat Sub CommandButton1_Click ()

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

Dim xCurPage As Integer, xPages As Integer

Dim xOutlookObj som objekt

Dim xE-mail som objekt

Dim xDoc Som Dokument, xNewDoc Som Dokument

Dim xFilePath som streng

Dim xOldStart As Long, xOldEnd As Long

On Error Resume Next

Application.ScreenUpdating = False

Indstil xOutlookObj = CreateObject("Outlook.Application")

Indstil xEmail = xOutlookObj.CreateItem(olMailItem)

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

Indstil xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Save

xFilePath = xFilePath + "\attached file" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'attached file er vedhæftede filnavn, skift til dit behov

xCurPageStart = 2 'startside

xCurPageEnd = 2 'slutside

xPages = Selection.Information(wdNumberOfPagesInDocument)

xCurPageStart = Selection.GoTo(what:=wdGoToPage, which:=wdGoToNext, Name:=xCurPageStart).Start

Hvis xCurPage = xPages Så

xCurPageEnd = ActiveDocument.Content.End

Else

xCurPageEnd = Selection.GoTo(what:=wdGoToPage, which:=wdGoToNext, Name:=xCurPageEnd + 1).Start

End If

Indstil xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Select

xCurPageRange.Copy

Indstil xNewDoc = Application.Documents.Add(Visible:=False)

xNewDoc.Activate

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName:=xFilePath

xNewDoc.Close

xDoc.Range(xOldStart, xOldEnd).Vælg

Med xEmail

.Subject = "Fax-data"

.Body = "Dette er en test-e-mail."

.Til = "åå@addin99.com"

.Vigtigt = olVigtigtNormal

.Attachments.Add xFilePath

.Skærm

Slut med

VBA.Kill xFilePath

Indstil xDoc = Ingenting

Indstil xEmail = Ingenting

Indstil xOutlookObj = Ingenting

Application.ScreenUpdating = True

End Sub
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har lavet en udfyldelig formular i MS word. Jeg har brugt legacy værktøjer til beregning etc. Jeg har også tilføjet en submit-knap, som virker til at sende formularen til e-mail. Problemet er, at når jeg genåbner dette dokument efter at have gemt, virker det ikke. Jeg har endda prøvet at gemme det som makroaktiveret dokument, men det nytter ikke noget. Kan du hjælpe?
Tak
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg havde det til at virke i starten, og så af en eller anden grund nu, giver det mig en fejl med fejl 429 om, at ActiveX-komponenten ikke kan oprette objekt. jeg har bogstaveligt talt bare kopieret og indsat. Dette virkede før, men jeg har lige ændret skriftstørrelse, gjort knappen større og ommærket billedteksten. Jeg tror ikke, jeg ved et uheld har ændret nogle andre indstillinger? nogen ide om hvad det kan være?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej! Jeg vil gerne få kommandoknappen til at sende en e-mail med Word-dokumentet som brødteksten i e-mailen (mit word-dokument er en formular). Er der en måde at gøre det på?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg vil gerne have mit dokument til at sende som et PDF-dokument i stedet for et Word-dokument.
Denne kommentar blev minimeret af moderatoren på webstedet
For eksempel ved at bruge tekst fra en tekstboks/tekstfelt i Word-dokumentet, og indsætte det som tekst i emnelinjen i din e-mail?
Denne kommentar blev minimeret af moderatoren på webstedet
Ja, det er også det, jeg leder efter, kan nogen hjælpe med denne anmodning?
Denne kommentar blev minimeret af moderatoren på webstedet
Virker dette også for Lotus Notes?
Hvad skal jeg ændre i "xOutlookObj"?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Forlæng kontor,
Kan vi indstille en anden e-mail, der ikke er knyttet til Outlook? Kan du lide direkte e-mail til GoDaddy-konto?
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg prøver at finde ud af de samme oplysninger. Jeg bruger gmail, og jeg skal oprette en formular, som jeg kan sende til forskellige e-mailadresser, som automatisk kan sendes tilbage til min gmail-konto.
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har oprettet dokumentet, men mit problem nu er, at hvis jeg sender denne formular til at sige 4 personer, der skal udfyldes, når de åbner den fra den vedhæftede e-mail, åbnes den i skrivebeskyttet tilstand, og når de klikker på send, beder den dem om at gemme som før det vil tillade koden at åbne en e-mail adresseret til mig. Er der en anden måde at undgå dette på end at give dem placeringen af ​​filen?
Denne kommentar blev minimeret af moderatoren på webstedet
Kan du tilføje Bcc til denne kode? Jeg har prøvet at tilføje Bcc og modtager en kompileringsfejl for forventet udtryk.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Heather,

Du kan tilføje Bcc til denne kode. For eksempel kan du tilføje .Bcc = "zmt@addin99.com" lige under .To = "åå@addin99.com". Så koden bliver:

Dim xOutlookObj som objekt
Dim xE-mail som objekt
Dim xDoc som dokument
Application.ScreenUpdating = False
Indstil xOutlookObj = CreateObject("Outlook.Application")
Indstil xEmail = xOutlookObj.CreateItem(olMailItem)
Indstil xDoc = ActiveDocument
xDoc.Save
Med xEmail
.Subject = "Fax-data"
.Body = "Dette er en test-e-mail."
.Til = "åå@addin99.com"
.Bcc = "zmt@addin99.com"
.Vigtigt = olVigtigtNormal
.Attachments.Add xDoc.FullName
.Skærm
Slut med
Indstil xDoc = Ingenting
Indstil xEmail = Ingenting
Indstil xOutlookObj = Ingenting
Application.ScreenUpdating = True

Se venligst vedhæftede billede. Hav en god dag.
Med venlig hilsen,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Denne kommentar blev minimeret af moderatoren på webstedet
Hej folkens,

Jeg vil anvende en knap, hvor jeg klikker og sender dokumentet som e-mail, ikke som en vedhæftet fil, til én e-mail-adresse. Så dokumentet er teksten i e-mailen. Ligesom effekten af ​​knappen "send til modtager" på båndet.

Kan nogen give mig den rigtige kode til det?

Tak.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Det kan være, at koden ikke kan hjælpe med at sende det aktuelle word-dokument som e-mail-teksten, hvis det skal gøres, vil billedet og filformateringen i dokumentet gå tabt.
Hvis du vil sende det aktuelle dokument som e-mail-brødtekst, kan brevfletningen gøre dig en tjeneste.
Har du brug for brevfletningen for at sende e-mail?
Hvis du har brug for det, så kommenter her.
Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

tak for din hjælp!

Jeg ville prøve det med dit forslag. Så ja, jeg har brug for brevfletningen for at sende e-mail.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,

tak for din hjælp!

Jeg ville prøve det med dit forslag. Kan du give mig koden til brevfletning?

Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
For at sende det aktuelle Word-dokument som posttekst, kan du tilføje Send til e-mail-modtager kommando til din QATskal du gøre som dette:
1. Åbn din word-fil, som du vil sende, og klik derefter filet > Indstillinger.
2. Vælg i venstre rude Hurtig adgangs værktøjslinje.
3. Vælg Kommandoer Ikke i båndet fra Vælg kommandoer fra.
4. Vælg og vælg Send til e-mail-modtager og klik på knappen Tilføj>>.
5. klik OK for at lukke dialogen.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Nu dette Send til e-mail-modtager kommandoen vises i Hurtig adgangs værktøjslinje øverst i dit Word-vindue. Derefter kan du indsætte den relative information i meddelelseshovedet. Når du er færdig med oplysningerne, skal du klikke Send en kopi, vil beskeden med det aktuelle word-dokument som brødtekst blive sendt med det samme.

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

Prøv dette, håber det kan hjælpe dig!
Denne kommentar blev minimeret af moderatoren på webstedet
Jeg har fundet ud af, at knappen virker til at åbne en e-mail, men når du bruger mailmerge, bliver VBA-knappen inaktiv af en eller anden grund?
Hvordan kan jeg sikre, at når mailmerging bruges, vil knappen fungere for brugeren at udfylde formularen og derefter aktivere knappen venligst?
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Mike,
Når jeg bruger mailmerge-funktionen, er knappen aktiv.
Kan du forklare dit problem mere detaljeret?
Eller du kan uploade din fil her, så vi kan tjekke, hvor problemet er.
Tak!
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Skyyang,

Se venligst det indlæg, jeg har lagt ind nedenfor, som har kopien vedhæftet.
Denne kommentar blev minimeret af moderatoren på webstedet
Hej,
Se venligst vedhæftede dokument nedenfor.
Jeg er nødt til at opdatere den til brug for 2023-fornyelser, og ved sammenlægning ser knappen ud til at blive deaktiveret, da flere medlemmer fortalte mig, at den ikke virker.

Tak,

Mike
Denne kommentar blev minimeret af moderatoren på webstedet
Hej, Mike,
Jeg har testet din fil i min computer, det er værre godt. Jeg bruger Office 2019. Se venligst nedenstående demo:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Denne kommentar blev minimeret af moderatoren på webstedet
Hej Skyyang,

Jeg fandt, at dette virker, når en bruger har MS Word, men det ser ud til, at e-mails som @hotmail; @gmail; og @live e-mail-adresser, har disse brugere problemer, hvor knappen ikke virker?
Det ser ud til, at det heller ikke virker på smartphones, hvis brugeren er afhængig af at bruge disse i modsætning til en computer.
Til sidst har jeg fået et svar fra en anden bruger, der bruger Windows 11, hvor knappen slet ikke virker.

Hvad har du oplevet med ovenstående eksempler?

Tak,

Mike
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