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

Hogyan alkalmazzunk egy gombot e-mail küldéséhez a jelenlegi Word fájl csatolásával? 

Ha e-mail üzenetet kell küldenie egy Word dokumentumból az Outlook segítségével, és csatolja az aktuális Word fájlt is, létrehozhat egy parancsgombot, majd az Outlook megnyitása nélkül erre a gombra kattintva küldheti el az üzenetet. Ebben a cikkben bemutatom, hogyan lehet gyorsan és egyszerűen kezelni.

Használjon egy gombot az e-mail küldéséhez a jelenlegi Word fájl csatolásával


Használjon egy gombot az e-mail küldéséhez a jelenlegi Word fájl csatolásával

Kérjük, kövesse az alábbi lépéseket a feladat Word fájlban történő megoldásához:

1. Először hozzon létre egy parancsgombot, kattintson Fejlesztő > Régi eszközök > Parancs gomb (ActiveX vezérlő), lásd a képernyőképet:

doc gomb e-mail küldéséhez 1

2. Kattintson a gombra, majd kattintson ingatlanok alatt a Fejlesztő fül, a ingatlanok ablaktáblán írja be a kívánt felirat szöveget a Képaláírás mező, lásd a képernyőképet:

doc gomb e-mail küldéséhez 2

3. Ezután zárja be a ingatlanok ablaktáblán kattintson a jobb gombbal a gombra, és válassza a lehetőséget Kód megtekintése, lásd a képernyőképet:

doc gomb e-mail küldéséhez 3

4. És akkor a megjelenített képernyőn Microsoft Visual Basic for Applications ablak, másolja és illessze be az alábbi kódot az eredeti szkriptek közé, lásd a képernyőképet:

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 gomb e-mail küldéséhez 4

Megjegyzések: A fenti kódban meg kell változtatnia a tárgyat, a törzsszöveget vagy az elküldött címet.

5. Ezután mentse el és zárja be ezt a kódot, kattintson a gombra Tervezési mód a tervezési mód kikapcsolásához. Most, amikor a létrehozott parancs gombra kattint, egy e-mailt hoz létre, amely az aktuális Word dokumentumot csatolja, lásd a képernyőképet:

doc gomb e-mail küldéséhez 5

6. Végül csak kattintanod kell Küldés gombra az üzenet elküldéséhez.


Ajánlott Word-termelékenységi eszközök

 

Kutools for Word - Több mint 100 speciális szolgáltatás a Word számára, takarítson meg 50% időt

  • A bonyolult és ismételt műveletek másodpercek alatt egyszeri feldolgozást végezhetnek.
  • Egyszerre több képet illesszen be a mappákba a Word dokumentumba.
  • Egyesítsen és egyesítsen több Word-fájlt a mappák között a kívánt sorrenddel.
  • Bontja az aktuális dokumentumot külön dokumentumokká címsor, szakasz törés vagy egyéb szempontok szerint.
  • Fájlok konvertálása a Doc és a Docx, a Docx és a PDF között, a közös konverzióhoz és kiválasztáshoz szükséges eszközök gyűjteménye stb.
A megjegyzések rendezése szerint
Hozzászólások (29)
Még nincs értékelés. Legyen Ön az első, aki értékel!
A weboldal moderátora ezt a megjegyzést minimalizálta
Azt próbálom elérni, hogy az e-mailt úgy küldjék el, hogy a tárgy az egyik mezőm tartalma legyen. Van erre lehetőség?
A weboldal moderátora ezt a megjegyzést minimalizálta
Hola, me podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
Köszönöm szépen.
A weboldal moderátora ezt a megjegyzést minimalizálta
Kedves Extend Office Team!

Szerintem az „xEmile” hibásan van írva. „xEmail” legyen.

Amíg a kód fut, és nincs probléma, a következő utasítás nem tesz semmit:

Set xEmail = Semmi
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia, Abhi,
Köszönjük észrevételét, ahogy mondtad, az „xEmile” hibásan van írva, „xEmail” legyen. Frissítettem a kódot.
Még egyszer köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Meg lehet ezt tenni úgy, hogy a dokumentumnak csak egy oldalát küldje el?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Don!
A feladat elvégzéséhez használja az alábbi kódot, a kódban módosítsa a kezdő- és záróoldalt a sajátjára:

Privát Sub CommandButton1_Click ()

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

Dim xCurPage As Integer, xPages As Integer

Dim xOutlookObj objektumként

Dim xEmail mint objektum

Dim xDoc As Document, xNewDoc As Document

Dim xFilePath karakterláncként

Dim xOldStart As Long, xOldEnd As Long

On Error Resume Next

Application.ScreenUpdating = Hamis

Set xOutlookObj = CreateObject("Outlook.Application")

xEmail beállítása = xOutlookObj.CreateItem(olMailItem)

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

Állítsa be az 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, ".")) 'a csatolt fájl a csatolt fájl neve, módosítsa igény szerint

xCurPageStart = 2 'kezdőoldal

xCurPageEnd = 2 'záróoldal

xPages = Selection.Information(wdNumberOfPagesInDocument)

xCurPageStart = Selection.GoTo(mit:=wdGoToPage, Melyik:=wdGoToNext, Név:=xCurPageStart).Start

Ha xCurPage = xPages Akkor

xCurPageEnd = ActiveDocument.Content.End

Más

xCurPageEnd = Selection.GoTo(mit:=wdGoToPage, Melyik:=wdGoToNext, Név:=xCurPageEnd + 1).Start

Ha véget

Állítsa be az xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Select

xCurPageRange.Copy

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

xNewDoc.Activate

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName:=xFilePath

xNewDoc.Close

xDoc.Range(xOldStart, xOldEnd).Válassza ki

xEmail-lel

.Subject = "Fax-adatok"

.Body = "Ez egy teszt e-mail."

.To = "yy@addin99.com"

.Importance = olImportanceNormal

.Attachments.Add xFilePath

.Kijelző

Vége

VBA.Kill xFilePath

Set xDoc = Semmi

Set xEmail = Semmi

Állítsa be az xOutlookObj = Semmit

Application.ScreenUpdating = Igaz

End Sub
A weboldal moderátora ezt a megjegyzést minimalizálta
Készítettem egy kitölthető űrlapot MS Wordben. Régi eszközöket használtam a számításokhoz stb. Hozzáadtam egy küldés gombot is, amely az űrlap e-mailre történő elküldésére szolgál. A probléma az, hogy amikor mentés után újra megnyitom ezt a dokumentumot, nem működik. Még megpróbáltam elmenteni makróképes dokumentumként, de nem használtam. tudna segíteni?
Kösz
A weboldal moderátora ezt a megjegyzést minimalizálta
Eleinte működött, majd valamiért most 429-es hibaüzenetet ad, ami arról szól, hogy az ActiveX komponens nem tud objektumot létrehozni. szó szerint csak másoltam és beillesztem. Ez korábban működött, de csak megváltoztattam a betűméretet, nagyobbra tettem a gombot, és átcímkéztem a feliratot. nem hiszem, hogy véletlenül változtattam más beállításokat? valami ötlet mi lehet?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia! Azt szeretném elérni, hogy a parancsgomb olyan e-mailt küldjön, amelynek törzse a Word dokumentum (a Word dokumentumom egy űrlap). Van erre mód?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szeretném, ha a dokumentumomat PDF-dokumentumként küldené el Word-dokumentum helyett.
A weboldal moderátora ezt a megjegyzést minimalizálta
Például egy szövegdobozból/szövegmezőből a Word-dokumentumban, és szövegként beszúrja az e-mail tárgysorába?
A weboldal moderátora ezt a megjegyzést minimalizálta
Igen, én is erre vágyom, tudna valaki segíteni ebben a kérésben?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ez a Lotus Notes esetében is működik?
Mit kell módosítanom az "xOutlookObj"-ban?
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Extend office!
Beállíthatunk egy másik e-mailt, amely nem kapcsolódik az Outlookhoz? Szereti a közvetlen e-mailt a GoDaddy-fiókba?
A weboldal moderátora ezt a megjegyzést minimalizálta
Ugyanezt az információt próbálom megtudni. Gmailt használok, és létre kell hoznom egy űrlapot, amelyet különböző e-mail-címekre küldök, és amelyek automatikusan visszaküldhetők a Gmail-fiókomba.
A weboldal moderátora ezt a megjegyzést minimalizálta
Létrehoztam a dokumentumot, de most az a problémám, hogy ha elküldöm ezt az űrlapot mondjuk 4 embernek, hogy töltse ki, amikor megnyitják az e-mail mellékletéből, akkor csak olvasható módban nyílik meg, és amikor rákattint a küldés, kéri, hogy mentse el a korábbiak szerint. lehetővé teszi a kód számára, hogy megnyissa a nekem címzett e-mailt. Van más megoldás, mint a fájl helyének megadása?
A weboldal moderátora ezt a megjegyzést minimalizálta
Hozzáadhat Titkos másolatot ehhez a kódhoz? Megpróbáltam hozzáadni a Titkos másolatot, és fordítási hibát kaptam a várt kifejezéshez.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Heather!

Hozzáadhat Titkos másolatot ehhez a kódhoz. Például hozzáadhatja a .Bcc = "zmt@addin99.com" karakterláncot közvetlenül a .To = "yy@addin99.com" alá. Tehát a kód a következő lesz:

Dim xOutlookObj objektumként
Dim xEmail mint objektum
Dim xDoc Dokumentumként
Application.ScreenUpdating = Hamis
Set xOutlookObj = CreateObject("Outlook.Application")
xEmail beállítása = xOutlookObj.CreateItem(olMailItem)
Állítsa be az xDoc = ActiveDocument
xDoc.Save
xEmail-lel
.Subject = "Fax-adatok"
.Body = "Ez egy teszt e-mail."
.To = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Kijelző
Vége
Set xDoc = Semmi
Set xEmail = Semmi
Állítsa be az xOutlookObj = Semmit
Application.ScreenUpdating = Igaz

Kérjük, nézze meg a mellékelt képet. Legyen szép napod.
Tisztelettel,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló emberek,

Szeretnék alkalmazni egy gombot, amelyre kattintva elküldöm a dokumentumot e-mailként, nem mellékletként, egy e-mail-címre. Úgy, hogy a dokumentum az e-mail szövege legyen. Csakúgy, mint a "Küldés a címzettnek" gomb hatása a szalagon.

Valaki tudna adni ehhez megfelelő kódot?

Köszönöm.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,
Előfordulhat, hogy a kód nem tud segíteni abban, hogy az aktuális Word dokumentumot e-mail törzsként küldje el, ha megteszi, a dokumentumon belüli kép- és fájlformátum elvész.
Ha az aktuális dokumentumot e-mail törzsként szeretné elküldeni, a Körlevél egy szívességet tehet.
Szüksége van a körlevélre az e-mailek küldéséhez?
Ha kell, kérem kommentelje ide.
Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,

köszönöm a segítségedet!

Kipróbálnám a javaslatoddal. Tehát igen, szükségem van a körlevélre az e-mail küldéshez.
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,

köszönöm a segítségedet!

Kipróbálnám a javaslatoddal. Meg tudnád adni a körlevél kódot?

Köszönjük!
A weboldal moderátora ezt a megjegyzést minimalizálta
Helló,
Ha az aktuális Word dokumentumot levéltörzsként szeretné elküldeni, hozzáadhatja a Küldés e-mail címzettnek parancsot neked QAT, kérjük, tegye a következőket:
1. Nyissa meg az elküldeni kívánt Word fájlt, majd kattintson a gombra filé > Opciók.
2. A bal oldali ablaktáblában válassza a lehetőséget Gyorselérési eszköztár.
3. választ A szalagon nem található parancsok tól Válaszd ki a parancsokat.
4. Válassza ki és válassza ki Küldés e-mail címzettnek és kattintson a gombra Add>>.
5. kettyenés OK a párbeszéd bezárásához.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Most, ezt Küldés e-mail címzettnek parancs jelenik meg a Gyorselérési eszköztár a Word ablakának tetején. Ezután beillesztheti a relatív információkat az üzenet fejlécébe. Az adatok megadása után kattintson a gombra Küldjön egy példányt, az aktuális Word dokumentumot tartalmazó üzenetet a rendszer azonnal elküldi.

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

Kérjük, próbálja ki ezt, remélem tud segíteni!
A weboldal moderátora ezt a megjegyzést minimalizálta
Azt tapasztaltam, hogy a gomb működik egy e-mail megnyitására, de a levelezőprogram használatakor a VBA gomb valamilyen okból inaktívvá válik?
Hogyan biztosíthatom, hogy a levélösszevonás használatakor a gomb működjön, hogy a felhasználó kitöltse az űrlapot, majd aktiválja a gombot?
A weboldal moderátora ezt a megjegyzést minimalizálta
szia Mike,
Amikor a levélösszevonás funkciót használom, a gomb aktív.
Kifejtenéd részletesebben a problémádat?
Vagy feltöltheti ide a fájlt, hogy ellenőrizhessük, hol a probléma.
Köszönöm!
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Skyyang,

Kérjük, nézze meg az általam alább közzétett bejegyzést, amelyhez csatolva van.
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia,
Kérjük, tekintse meg az alább mellékelt dokumentumot.
Frissítenem kell a 2023-as megújítások használatához, és az összevonáskor a gomb le van tiltva, mivel több tag azt mondta, hogy nem működik.

Köszönöm,

Mikrofon
A weboldal moderátora ezt a megjegyzést minimalizálta
szia Mike,
Kipróbáltam a fájlodat a számítógépemen, jól romlik. Office 2019-et használok. Tekintse meg az alábbi bemutatót:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
A weboldal moderátora ezt a megjegyzést minimalizálta
Szia Skyyang,

Úgy találtam, hogy ez működik, ha a felhasználónak van MS Wordje, de úgy tűnik, hogy olyan e-mailek, mint a @hotmail; @gmail; és @élő e-mail címek esetén azoknak a felhasználóknak olyan problémáik vannak, amikor a gomb nem működik?
Úgy tűnik, hogy az okostelefonokon sem működik, ha a felhasználó ezeket használja, nem pedig számítógépet.
Végül egy másik, Windows 11-et használó felhasználótól kaptam választ, ahol a gomb egyáltalán nem működik.

Kérem, mit tapasztalt a fenti példákkal?

Köszönöm,

Mikrofon
Még senki sem írt megjegyzést
Hagyja meg észrevételeit
Feladás vendégként
×
Értékeld ezt a bejegyzést:
0   Karakterek
Javasolt helyek

Kövess minket

Copyright © 2009 - www.extendoffice.com. | Minden jog fenntartva. Powered by ExtendOffice. | Oldaltérkép
A Microsoft és az Office logó a Microsoft Corporation védjegyei vagy bejegyzett védjegyei az Egyesült Államokban és / vagy más országokban.
Sectigo SSL védi