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

Jak použít tlačítko pro odeslání e-mailu s připojeným aktuálním souborem Word? 

Pokud potřebujete odeslat e-mailovou zprávu z dokumentu aplikace Word prostřednictvím aplikace Outlook a připojit také aktuální soubor aplikace Word, můžete vytvořit příkazové tlačítko a poté zprávu odeslat kliknutím na toto tlačítko bez otevření aplikace Outlook. V tomto článku vám představím, jak se s tím rychle a snadno vypořádat.

Pomocí tlačítka odešlete e-mail s připojeným aktuálním souborem Word


Pomocí tlačítka odešlete e-mail s připojeným aktuálním souborem Word

Při řešení této úlohy v souboru Word proveďte následující kroky:

1. Nejprve byste měli vytvořit příkazové tlačítko, klikněte prosím Vývojka > Starší nástroje > Příkazové tlačítko (ovládání ActiveX), viz screenshot:

tlačítko doc pro odeslání e-mailu 1

2. Vyberte tlačítko a klikněte na Nemovitosti pod Vývojka v záložce Nemovitosti v podokně zadejte požadovaný text titulku do Titulek pole, viz screenshot:

tlačítko doc pro odeslání e-mailu 2

3. Poté zavřete Nemovitosti v podokně nyní klikněte pravým tlačítkem na tlačítko a vyberte Zobrazit kód, viz screenshot:

tlačítko doc pro odeslání e-mailu 3

4. A pak, na displeji Microsoft Visual Basic pro aplikace okno, zkopírujte a vložte níže uvedený kód mezi původní skripty, viz 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

tlačítko doc pro odeslání e-mailu 4

Poznámka: Ve výše uvedeném kódu byste měli podle potřeby změnit předmět, hlavní text nebo zaslanou adresu.

5. Poté tento kód uložte a zavřete, klikněte na Režim návrhu vypnete režim návrhu. Nyní, když kliknete na příkazové tlačítko, které jste vytvořili, bude vytvořen e-mail s aktuálním dokumentem Word jako přílohou, viz screenshot:

tlačítko doc pro odeslání e-mailu 5

6. Nakonec stačí kliknout Poslat tlačítko pro odeslání této zprávy.


Doporučené nástroje produktivity slov

 

Kutools pro Word - více než 100 pokročilých funkcí pro Word, ušetříte 50% času

  • Složité a opakované operace lze provádět jednorázově během několika sekund.
  • Vložte více obrázků do složek do dokumentu Word najednou.
  • Sloučte a zkombinujte více souborů Wordu napříč složkami do jednoho v požadovaném pořadí.
  • Rozdělte aktuální dokument na samostatné dokumenty podle záhlaví, zalomení sekce nebo jiných kritérií.
  • Převádějte soubory mezi Doc a Docx, Docx a PDF, kolekci nástrojů pro běžné převody a výběr atd. ...
Komentáře (24)
Zatím žádné hodnocení. Buďte první, kdo ohodnotí!
Tento komentář byl moderátorem webu minimalizován
Snažím se, aby byl e-mail odeslán s předmětem, který je obsahem jednoho z mých polí. Je to možné?
Tento komentář byl moderátorem webu minimalizován
Ahoj, mě podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
Děkuju mnohokrát.
Tento komentář byl moderátorem webu minimalizován
Ahoj Extend Office Team,

Věřím, že 'xEmile' je překlep. Mělo by to být 'xEmail'.

Zatímco kód běží a není žádný problém, následující příkaz neudělá nic:

Nastavit xEmail = nic
Tento komentář byl moderátorem webu minimalizován
Ahoj, Abhi,
Děkujeme za váš komentář, jak jste řekl, 'xEmile' je špatně napsané, mělo by to být 'xEmail'. Aktualizoval jsem kód.
Ještě jednou vám děkuji!
Tento komentář byl moderátorem webu minimalizován
Lze to udělat tak, že odešlete pouze jednu stránku dokumentu?
Tento komentář byl moderátorem webu minimalizován
Dobrý den, Done,
Chcete-li se vypořádat se svým úkolem, použijte níže uvedený kód, v kódu byste měli změnit úvodní stránku a koncovou stránku na svou vlastní:

Private Sub CommandButton1_Click ()

Dim xCurPageStart jako dlouhý, xCurPageEnd jako dlouhý, xCurPageRange jako rozsah

Dim xCurPage jako Integer, xPages jako Integer

Dim xOutlookObj jako objekt

Dim xEmail jako objekt

Dim xDoc As Document, xNewDoc As Document

Dim xFilePath jako řetězec

Dim xOldStart As Long, xOldEnd As Long

On Error Resume Next

Application.ScreenUpdating = False

Set xOutlookObj = CreateObject("Outlook.Application")

Nastavit xEmail = xOutlookObj.CreateItem(olMailItem)

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

Nastavte xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Uložit

xFilePath = xFilePath + "\attached file" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'přiložený soubor je název souboru přílohy, změňte jej podle potřeby

xCurPageStart = 2 'úvodní stránka

xCurPageEnd = 2 'koncová stránka

xPages = Selection.Information(wdNumberOfPagesInDocument)

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

If xCurPage = xPages Then

xCurPageEnd = ActiveDocument.Content.End

Jiný

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

End If

Nastavit xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Select

xCurPageRange.Copy

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

xNewDoc.Activate

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName:=xFilePath

xNewDoc.Close

xDoc.Range(xOldStart, xOldEnd).Vybrat

S xEmailem

.Subject = "Faxová data"

.Body = "Toto je testovací e-mail."

.To = "yy@addin99.com"

.Importance = olImportanceNormal

.Přílohy.Přidat xFilePath

.Zobrazit

Konec s

VBA.Kill xFilePath

Nastavit xDoc = nic

Nastavit xEmail = nic

Nastavte xOutlookObj = Nic

Application.ScreenUpdating = True

End Sub
Tento komentář byl moderátorem webu minimalizován
Vytvořil jsem vyplnitelný formulář v MS word. Použil jsem starší nástroje pro výpočet atd. Také jsem přidal tlačítko Odeslat, které funguje pro odeslání formuláře na e-mail. Problém je, že když tento dokument po uložení znovu otevřu, nefunguje. Dokonce jsem to zkusil uložit jako dokument s povoleným makrem, ale k ničemu. Můžete mi prosím pomoci?
Díky
Tento komentář byl moderátorem webu minimalizován
Nejprve mi to fungovalo a pak mi to z nějakého důvodu teď dává chybu 429 o tom, že komponenta ActiveX nemůže vytvořit objekt. doslova jsem jen zkopíroval a vložil. Dříve to fungovalo, ale jen jsem změnil velikost písma, zvětšil tlačítko a přejmenoval popisek. Nemyslím si, že jsem omylem změnil některá další nastavení? nějaký nápad, co by to mohlo být?
Tento komentář byl moderátorem webu minimalizován
Ahoj! Chtěl bych, aby příkazové tlačítko poslalo e-mail s dokumentem aplikace Word jako tělem e-mailu (mým dokumentem aplikace Word je formulář). Existuje způsob, jak to udělat?
Tento komentář byl moderátorem webu minimalizován
Chtěl bych, aby se můj dokument odeslal jako dokument PDF, nikoli jako dokument aplikace Word.
Tento komentář byl moderátorem webu minimalizován
Například použití textu z textového pole/textového pole v dokumentu aplikace Word a jeho vložení jako textu do předmětu vašeho e-mailu?
Tento komentář byl moderátorem webu minimalizován
Ano, to je také to, o co mi jde, může někdo pomoci s touto žádostí?
Tento komentář byl moderátorem webu minimalizován
Funguje to také pro Lotus Notes?
Co musím změnit v "xOutlookObj"?
Tento komentář byl moderátorem webu minimalizován
Ahoj Extend office,
Můžeme nastavit jiný e-mail, který není propojen s aplikací Outlook? Líbí se vám přímý e-mail na účet GoDaddy?
Tento komentář byl moderátorem webu minimalizován
Snažím se zjistit stejné informace. Používám gmail a potřebuji vytvořit formulář k odeslání na různé e-mailové adresy, které lze automaticky odeslat zpět na můj účet gmail.
Tento komentář byl moderátorem webu minimalizován
Vytvořil jsem dokument, ale můj problém je, že když tento formulář pošlu řekněme 4 lidem k vyplnění, když jej otevřou z přílohy e-mailu, otevře se v režimu pouze pro čtení a když kliknou na Odeslat, požádá je o uložení jako předtím umožní kódu otevřít e-mail adresovaný mně. Existuje jiný způsob, jak to obejít, než jim dát umístění souboru?
Tento komentář byl moderátorem webu minimalizován
Můžete k tomuto kódu přidat skrytou kopii? Pokusil jsem se přidat skrytou kopii a zobrazí se chyba kompilace pro očekávaný výraz.
Tento komentář byl moderátorem webu minimalizován
Ahoj Heather,

K tomuto kódu můžete přidat skrytou kopii. Můžete například přidat .Bcc = "zmt@addin99.com" těsně pod .To = "yy@addin99.com". Kód se tedy stane:

Dim xOutlookObj jako objekt
Dim xEmail jako objekt
Dim xDoc jako dokument
Application.ScreenUpdating = False
Set xOutlookObj = CreateObject("Outlook.Application")
Nastavit xEmail = xOutlookObj.CreateItem(olMailItem)
Nastavte xDoc = ActiveDocument
xDoc.Uložit
S xEmailem
.Subject = "Faxová data"
.Body = "Toto je testovací e-mail."
.To = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Importance = olImportanceNormal
.Přílohy.Přidat xDoc.FullName
.Zobrazit
Konec s
Nastavit xDoc = nic
Nastavit xEmail = nic
Nastavte xOutlookObj = Nic
Application.ScreenUpdating = True

Podívejte se prosím na přiložený obrázek. Hezký den.
S pozdravem,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Tento komentář byl moderátorem webu minimalizován
Ahoj lidičky,

Chci použít tlačítko, kde kliknu a pošlu dokument jako e-mail, nikoli jako přílohu, na jednu e-mailovou adresu. Aby dokument byl textem e-mailu. Stejně jako efekt tlačítka "odeslat příjemci" na pásu karet.

Může mi někdo dát správný kód?

Děkuji.
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Může se stát, že kód nepomůže odeslat aktuální textový dokument jako tělo e-mailu, pokud tak učiníte, obrázek a formátování souboru v dokumentu se ztratí.
Pokud chcete odeslat aktuální dokument jako tělo e-mailu, hromadná korespondence vám může pomoci.
Potřebujete hromadnou korespondenci pro odesílání e-mailů?
Pokud potřebujete, napište komentář zde.
Děkuji!
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Děkuji za vaší pomoc!

Zkusil bych to s tvým návrhem. Takže ano, potřebuji hromadnou korespondenci pro odesílání e-mailů.
Tento komentář byl moderátorem webu minimalizován
Ahoj,

Děkuji za vaší pomoc!

Zkusil bych to s tvým návrhem. Můžete mi dát kód pro hromadnou korespondenci?

Díky!
Tento komentář byl moderátorem webu minimalizován
Ahoj,
Chcete-li odeslat aktuální textový dokument jako tělo pošty, můžete přidat Odeslat příjemci pošty příkaz k vašemu Katar, udělejte prosím toto:
1. Otevřete soubor aplikace Word, který chcete odeslat, a potom klepněte Soubor > možnosti.
2. V levém podokně vyberte Panel nástrojů Rychlý přístup.
3. vybrat Příkazy nejsou na pásu karet z Vyberte příkazy z.
4. Vyberte a vyberte Odeslat příjemci pošty a klikněte na tlačítko Přidat>>.
5. cvaknutí OK zavřete dialogové okno.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

A teď, tohle Odeslat příjemci pošty příkaz se zobrazí v Panel nástrojů Rychlý přístup v horní části okna aplikace Word. Potom můžete vložit relativní informace do záhlaví zprávy. Po dokončení informací klikněte Zašlete kopii, zpráva s aktuálním textovým dokumentem jako tělem bude odeslána najednou.

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

Zkuste to prosím, doufám, že vám to pomůže!
Tento komentář byl moderátorem webu minimalizován
Zjistil jsem, že tlačítko funguje k otevření e-mailu, ale při použití hromadné korespondence se tlačítko VBA z nějakého důvodu stane neaktivním?
Jak mohu zajistit, že při použití hromadné korespondence bude tlačítko fungovat, aby uživatel vyplnil formulář a poté tlačítko aktivoval?
Zatím zde nejsou žádné komentáře
Zanechat své připomínky
Odesílání jako host
×
Ohodnoťte tento příspěvek:
0   Postavy
Doporučená umístění