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

Hur applicerar jag en knapp för att skicka e-post med aktuell Word-fil bifogad? 

Om du behöver skicka ett e-postmeddelande från ett Word-dokument via Outlook och bifoga den aktuella Word-filen också kan du skapa en kommandoknapp och sedan skicka meddelandet genom att klicka på den här knappen utan att öppna Outlook. Den här artikeln kommer jag att presentera hur man hanterar det snabbt och enkelt.

Använd en knapp för att skicka e-post med aktuell Word-fil bifogad


Använd en knapp för att skicka e-post med aktuell Word-fil bifogad

Gör med följande steg för att lösa detta jobb i Word-fil:

1. Först bör du skapa en kommandoknapp, klicka Utvecklare > Äldre verktyg > Kommandoknapp (ActiveX-kontroll), se skärmdump:

doc-knapp för att skicka e-post 1

2. Välj knappen och klicka Fastigheter under Utvecklare fliken, i Fastigheter skriv in texttexten du behöver i Bildtext fält, se skärmdump:

doc-knapp för att skicka e-post 2

3. Stäng sedan Fastigheter högerklicka på knappen och välj Visa kod, se skärmdump:

doc-knapp för att skicka e-post 3

4. Och sedan, i det visade Microsoft Visual Basic för applikationer fönster, kopiera och klistra in koden nedan mellan originalskripten, se skärmdump:

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-knapp för att skicka e-post 4

Anmärkningar: I ovanstående kod bör du ändra ämne, brödtext eller skickad adress efter dina behov.

5. Spara och stäng sedan den här koden och klicka Designläge för att stänga av designläget. Nu när du klickar på kommandoknappen du har skapat skapas ett e-postmeddelande med det aktuella Word-dokumentet som bilaga, se skärmdump:

doc-knapp för att skicka e-post 5

6. Äntligen behöver du bara klicka Skicka knappen för att skicka detta meddelande.


Rekommenderade Word-produktivitetsverktyg

 

Kutools för Word - Mer än 100 avancerade funktioner för Word, spara 50% tid

  • Komplicerade och upprepade operationer kan göras engångsbehandling på några sekunder.
  • Infoga flera bilder över mappar i Word-dokumentet samtidigt.
  • Slå ihop och kombinera flera Word-filer över mappar till en med önskad ordning.
  • Dela upp det aktuella dokumentet i separata dokument enligt rubrik, avsnittbrytning eller andra kriterier.
  • Konvertera filer mellan Doc och Docx, Docx och PDF, samling verktyg för vanliga konverteringar och val, och så vidare ...
Sortera kommentarer efter
Kommentarer (16)
Inga betyg än. Bli först med att betygsätta!
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försöker få e-postmeddelandet att skicka med ämnesraden som innehållet i ett av mina fält. Är detta möjligt?
Nichole
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, me podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
Tack så mycket.
lark
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Extend Office Team,

Jag tror att "xEmile" är felstavat. Det ska vara 'xEmail'.

Medan koden körs och det inte finns några problem, kommer följande uttalande inte att göra något:

Ställ in xEmail = Ingenting
Abhi
Denna kommentar minimerades av moderatoren på webbplatsen
Hej, Abhi,
Tack för din kommentar, som du sa, "xEmile" är felstavat, det ska vara "xEmail". Jag har uppdaterat koden.
Tack igen!
skyyang
Denna kommentar minimerades av moderatoren på webbplatsen
Kan detta göras så att du bara skickar en sida av ett dokument?
Don Patterson
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Don,
För att hantera din uppgift, använd koden nedan, i koden bör du ändra startsidan och slutsidan till din egen:

Privat underkommando-knappen1_Click ()

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

Dim xCurPage som heltal, xPages som heltal

Dim xOutlookObj Som objekt

Dim xE-posta som objekt

Dim xDoc som dokument, xNewDoc som dokument

Dim xFilePath som sträng

Dim xOldStart As Long, xOldEnd As Long

On Error Resume Next

Application.ScreenUpdating = False

Ställ in xOutlookObj = CreateObject("Outlook.Application")

Ställ in xEmail = xOutlookObj.CreateItem(olMailItem)

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

Ställ in 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, ".")) 'bifogad fil är den bifogade filens namn, ändra till ditt behov

xCurPageStart = 2 'startsida

xCurPageEnd = 2 'slutsida

xPages = Selection.Information(wdNumberOfPagesInDocument)

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

Om xCurPage = xPages Då

xCurPageEnd = ActiveDocument.Content.End

annars

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

End If

Ställ in xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Select

xCurPageRange.Copy

Ställ in xNewDoc = Application.Documents.Add(Visible:=False)

xNewDoc.Activate

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName:=xFilePath

xNewDoc.Close

xDoc.Range(xOldStart, xOldEnd). Välj

Med xEmail

.Subject = "Fax-data"

.Body = "Detta är ett testmeddelande."

.To = "åå@addin99.com"

.Betydning = olVikt Normal

.Attachments.Add xFilePath

.Visa

Sluta med

VBA.Kill xFilePath

Ställ in xDoc = Ingenting

Ställ in xEmail = Ingenting

Ställ in xOutlookObj = Ingenting

Application.ScreenUpdating = True

End Sub
skyyang
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har gjort en ifyllbar blankett i MS word. Jag har använt äldre verktyg för beräkning etc. Jag har även lagt till en skicka-knapp som fungerar för att skicka formuläret till e-post. Problemet är att när jag öppnar det här dokumentet igen efter att ha sparat så fungerar det inte. Jag har till och med försökt att spara det som ett makroaktiverat dokument men ingen nytta. Kan du snälla hjälpa till?
Tack
Tausif
Denna kommentar minimerades av moderatoren på webbplatsen
Jag hade det att fungera först, och sedan av någon anledning nu, ger det mig ett fel med fel 429 om att ActiveX-komponenten inte kan skapa objekt. Jag har bokstavligen bara kopierat och klistrat in. Detta fungerade tidigare men jag ändrade bara teckenstorlek, gjorde knappen större och märkte om bildtexten. Jag tror inte att jag ändrade några andra inställningar av misstag? någon aning om vad det kan vara?
andrew
Denna kommentar minimerades av moderatoren på webbplatsen
Hej! Jag skulle vilja få kommandoknappen att skicka ett e-postmeddelande med Word-dokumentet som brödtext i e-postmeddelandet (mitt Word-dokument är ett formulär). Finns det något sätt att göra det?
Santiago
Denna kommentar minimerades av moderatoren på webbplatsen
Jag vill att mitt dokument ska skickas som ett PDF-dokument istället för ett Word-dokument.
</div>
Gill Leadbetter
Denna kommentar minimerades av moderatoren på webbplatsen
Till exempel att använda text från en textruta/textfält i Word-dokumentet, och infoga den som text i ämnesraden i ditt e-postmeddelande?
Lasse Jensen
Denna kommentar minimerades av moderatoren på webbplatsen
Ja detta är också vad jag är ute efter kan någon hjälpa till med denna begäran?
Mark Crane
Denna kommentar minimerades av moderatoren på webbplatsen
Fungerar detta även för Lotus Notes?
Vad måste jag ändra i "xOutlookObj"?
Jacques
Denna kommentar minimerades av moderatoren på webbplatsen
Hej Extend office,
Kan vi ställa in en annan e-post som inte är länkad till Outlook? Gillar du direkt e-post till GoDaddy-kontot?
</div>
Chelo
Denna kommentar minimerades av moderatoren på webbplatsen
Jag försöker ta reda på samma information. Jag använder gmail och jag behöver skapa ett formulär att skicka ut till olika e-postadresser som automatiskt kan skickas tillbaka till mitt gmail-konto.
</div>
Shelby
Denna kommentar minimerades av moderatoren på webbplatsen
Jag har skapat dokumentet men mitt problem nu är att om jag skickar det här formuläret för att säga 4 personer att fylla i, när de öppnar det från e-postbilagan öppnas det i skrivskyddat läge och när de klickar på skicka ber det dem att spara som tidigare det kommer att tillåta koden att öppna ett mejl adresserat till mig. Finns det något annat sätt att kringgå detta än att ge dem platsen för filen?
Richard Bird
Det finns inga kommentarer här ännu
Lämna dina kommentarer
Postar som gäst
×
Betygsätt detta inlägg:
0  Tecken
Föreslagna platser