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

Cum se aplică un buton pentru a trimite e-mailuri cu fișierul Word actual atașat? 

Dacă trebuie să trimiteți un mesaj de e-mail dintr-un document Word prin Outlook și să atașați și fișierul Word curent, puteți crea un buton de comandă și apoi puteți trimite mesajul făcând clic pe acest buton fără a deschide Outlook. În acest articol, vă voi prezenta cum să faceți față rapid și ușor.

Aplicați un buton pentru a trimite e-mailuri cu fișierul Word actual atașat


Aplicați un buton pentru a trimite e-mailuri cu fișierul Word actual atașat

Vă rugăm să parcurgeți pașii următori pentru rezolvarea acestei lucrări în fișierul Word:

1. Mai întâi, ar trebui să creați un buton de comandă, vă rugăm să faceți clic pe Dezvoltator > Instrumente vechi > Buton de comandă (control ActiveX), vezi captura de ecran:

buton doc pentru a trimite e-mail 1

2. Selectați butonul și faceți clic Proprietăţi în temeiul Dezvoltator în tabul Proprietăţi , introduceți textul subtitrării de care aveți nevoie în Legendă câmp, vezi captura de ecran:

buton doc pentru a trimite e-mail 2

3. Apoi, închideți Proprietăţi , faceți clic dreapta pe buton și alegeți Afișați codul, vezi captura de ecran:

buton doc pentru a trimite e-mail 3

4. Și apoi, în afișat Microsoft Visual Basic pentru aplicații fereastră, copiați și lipiți codul de mai jos între scripturile originale, vedeți captura de ecran:

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

buton doc pentru a trimite e-mail 4

notițe: În codul de mai sus, ar trebui să schimbați subiectul, textul corpului sau adresa trimisă în funcție de nevoile dvs.

5. Apoi, salvați și închideți acest cod, faceți clic pe Mod de proiectare pentru a dezactiva modul de proiectare. Acum, când faceți clic pe butonul de comandă pe care l-ați creat, va fi creat un e-mail cu documentul Word curent ca atașament, consultați captura de ecran:

buton doc pentru a trimite e-mail 5

6. În cele din urmă, trebuie doar să faceți clic Trimitere pentru a trimite acest mesaj.


Instrumente de productivitate Word recomandate

 

Kutools pentru Word - Mai mult de 100 de funcții avansate pentru Word, economisiți-vă 50% timp

  • Operațiile complicate și repetate pot fi efectuate o singură dată în câteva secunde.
  • Inserați mai multe imagini în foldere în documentul Word simultan.
  • Combinați și combinați mai multe fișiere Word din foldere într-unul singur cu comanda dorită.
  • Împărțiți documentul curent în documente separate în funcție de titlu, secțiune de secțiune sau alte criterii.
  • Convertiți fișiere între Doc și Docx, Docx și PDF, colecție de instrumente pentru conversii și selecție obișnuite și așa mai departe ...
Comentarii (29)
Încă nu există evaluări. Fii primul care evaluează!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Încerc să trimit e-mailul cu subiectul fiind conținutul unuia dintre câmpurile mele. Este posibil?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Hola, mi-ar putea sprijini pentru a fi convertit în fișierul PDF și a se adaugă la e-mail în ves del word por favor.
Mulţumesc mult.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Extend Office Team,

Cred că „xEmile” este scris greșit. Ar trebui să fie „xEmail”.

În timp ce codul rulează și nu există nicio problemă, următoarea declarație nu va face nimic:

Setați xEmail = Nimic
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Abhi,
Vă mulțumim pentru comentariu, așa cum ați spus, „xEmile” este scris greșit, ar trebui să fie „xEmail”. Am actualizat codul.
Iti multumesc din nou!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Se poate face acest lucru astfel încât să trimiteți doar o pagină a unui document?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Don,
Pentru a vă ocupa de sarcina dvs., vă rugăm să aplicați codul de mai jos, în cod, ar trebui să schimbați pagina de început și pagina de sfârșit cu propria dvs.:

Sub CommandButton privat 1_Click()

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

Dim xCurPage ca întreg, xPages ca întreg

Dim xOutlookObj ca obiect

Dim xEmail ca obiect

Dim xDoc ca document, xNewDoc ca document

Dim xFilePath ca șir

Dim xOldStart As Long, xOldEnd As Long

La data de eroare CV următoare

Application.ScreenUpdating = Fals

Setați xOutlookObj = CreateObject("Outlook.Application")

Setați xEmail = xOutlookObj.CreateItem(olMailItem)

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

Setați xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Salvare

xFilePath = xFilePath + „\fișier atașat” + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) „fișierul atașat este numele fișierului atașat, modificați în funcție de nevoile dvs.

xCurPageStart = 2 'pagina de pornire

xCurPageEnd = 2 'pagină de final

xPages = Selection.Information(wdNumberOfPagesInDocument)

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

Dacă xCurPage = xPages, atunci

xCurPageEnd = ActiveDocument.Content.End

Altfel

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

Final, dacă

Setați xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Select

xCurPageRange.Copy

Setați xNewDoc = Application.Documents.Add(Visible:=False)

xNewDoc.Activate

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName:=xFilePath

xNewDoc.Close

xDoc.Range(xOldStart, xOldEnd).Select

Cu xEmail

.Subject = „Date-fax”

.Body = „Acesta este un e-mail de test”.

.To = „yy@addin99.com”

.Importance = olImportanceNormal

.Atașamente.Adăugați xFilePath

.Afişa

Se termina cu

VBA.Kill xFilePath

Set xDoc = Nimic

Setați xEmail = Nimic

Setați xOutlookObj = Nimic

Application.ScreenUpdating = Adevărat

End Sub
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am creat un formular care poate fi completat în MS Word. Am folosit instrumente vechi pentru calcul etc. Am adăugat, de asemenea, un buton de trimitere care funcționează pentru a trimite formularul pe e-mail. Problema este că atunci când redeschid acest document după salvare, nu funcționează. Am încercat chiar să-l salvez ca document activat pentru macro, dar nu am folosit. Puteti ajuta va rog?
mulțumesc
Acest comentariu a fost redus la minimum de moderatorul de pe site
L-am avut la început să funcționeze, iar apoi, dintr-un motiv oarecare, acum, îmi dă o eroare de eroare 429 despre componenta activeX nu poate crea obiect. Literal, am copiat și lipit. Acest lucru a funcționat înainte, dar tocmai am schimbat dimensiunea fontului, am făcut butonul mai mare și am reetichetat legenda. Nu cred că am schimbat din greșeală alte setări? ai idee ce ar putea fi?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut! Aș dori ca butonul de comandă să trimită un e-mail cu documentul Word ca corp al e-mailului (documentul meu Word este un formular). Există vreo modalitate de a face asta?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Aș dori ca documentul meu să fie trimis ca document PDF și nu ca document Word.
Acest comentariu a fost redus la minimum de moderatorul de pe site
De exemplu, folosiți text dintr-o casetă de text/câmp de text în documentul Word și inserați-l ca text în linia de subiect a e-mailului dvs.?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Da, acesta este și ceea ce urmăresc, poate cineva să mă ajute cu această solicitare?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Funcționează și pentru Lotus Notes?
Ce trebuie să schimb în „xOutlookObj”?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, extinde biroul,
Putem seta un alt e-mail care nu este legat la Outlook? Vă place e-mailul direct către contul GoDaddy?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Încerc să aflu aceleași informații. Folosesc Gmail și trebuie să creez un formular pe care să îl trimit la diferite adrese de e-mail care pot fi trimise automat înapoi în contul meu de Gmail.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am creat documentul, dar problema mea acum este că, dacă trimit acest formular pentru a spune 4 persoane de completat, când îl deschid din atașamentul de e-mail se deschide în modul numai citire și când fac clic pe Trimite, le cere să salveze ca înainte va permite codului să deschidă un e-mail adresat mie. Există o altă modalitate de a o evita, în afară de a le oferi locația fișierului?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Puteți adăuga Bcc la acest cod? Am încercat să adaug Bcc și am primit o eroare de compilare pentru expresia așteptată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună Heather,

Puteți adăuga Bcc la acest cod. De exemplu, puteți adăuga .Bcc = „zmt@addin99.com” chiar sub .To = „yy@addin99.com”. Deci codul devine:

Dim xOutlookObj ca obiect
Dim xEmail ca obiect
Dim xDoc ca document
Application.ScreenUpdating = Fals
Setați xOutlookObj = CreateObject("Outlook.Application")
Setați xEmail = xOutlookObj.CreateItem(olMailItem)
Setați xDoc = ActiveDocument
xDoc.Salvare
Cu xEmail
.Subject = „Date-fax”
.Body = „Acesta este un e-mail de test”.
.To = „yy@addin99.com”
.Bcc = „zmt@addin99.com”
.Importance = olImportanceNormal
.Atașamente.Add xDoc.FullName
.Afişa
Se termina cu
Set xDoc = Nimic
Setați xEmail = Nimic
Setați xOutlookObj = Nimic
Application.ScreenUpdating = Adevărat

Vă rugăm să vedeți poza atașată. O zi plăcută.
Cu sinceritate,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna ziua oameni buni,

Vreau să aplic un buton în care fac clic și trimit documentul ca e-mail, nu ca atașament, la o singură adresă de e-mail. Pentru ca documentul să fie textul e-mailului. La fel ca efectul butonului „trimite la destinatar” de pe panglică.

Imi poate da cineva codul potrivit pentru asta?

Mulțumesc.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,
Poate că codul nu poate ajuta să trimită documentul Word curent ca corp de e-mail, dacă se va face, imaginea și formatarea fișierului din document se vor pierde.
Dacă doriți să trimiteți documentul curent ca corp de e-mail, Mail Merge vă poate face o favoare.
Aveți nevoie de Mail Merge pentru a trimite e-mailuri?
Dacă aveți nevoie, vă rugăm să comentați aici.
Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,

vă mulțumesc pentru ajutor!

As incerca cu sugestia ta. Deci da, am nevoie de Mail Merge pentru a trimite e-mail.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,

vă mulțumesc pentru ajutor!

As incerca cu sugestia ta. Îmi puteți da codul pentru îmbinarea corespondenței?

Multumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,
Pentru a trimite documentul Word curent ca corp de e-mail, puteți adăuga Trimiteți către destinatarul poștei comanda către dumneavoastră QTR, vă rugăm să faceți acest lucru:
1. Deschideți fișierul Word pe care doriți să-l trimiteți, apoi faceți clic Fișier > Opţiuni.
2. În panoul din stânga, selectați Bara de instrumente pentru acces rapid.
3. Selectați Comenzile nu sunt în panglică de la Alegeți comenzi de la.
4. Alegeți și selectați Trimiteți către destinatarul poștei și faceți clic pe butonul Adăugați>>.
5. clic OK pentru a închide dialogul.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Acum, asta Trimiteți către destinatarul poștei comanda va apărea în Bara de instrumente pentru acces rapid în partea de sus a ferestrei Word. Apoi, puteți introduce informațiile relative în antetul mesajului. După ce ați terminat informațiile, vă rugăm să faceți clic Trimite o copie, mesajul cu documentul Word curent ca corp va fi trimis imediat.

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

Vă rugăm să încercați asta, sper că vă poate ajuta!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Am descoperit că butonul funcționează pentru a deschide un e-mail, dar când utilizați mailmerge, butonul VBA devine inactiv dintr-un motiv oarecare?
Cum mă pot asigura că atunci când este utilizată combinarea corespondenței, butonul va funcționa pentru ca utilizatorul să completeze formularul și apoi să activeze butonul, vă rog?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Mike,
Când folosesc funcția de îmbinare prin corespondență, butonul este activ.
Ai putea explica mai detaliat problema ta?
Sau puteți încărca fișierul aici, astfel încât să putem verifica unde este problema.
Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Skyyang,

Vă rugăm să vedeți postarea pe care am pus-o mai jos și care are copia atașată.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună,
Vă rugăm să consultați documentul atașat mai jos.
Trebuie să-l actualizez pentru utilizarea reînnoirilor din 2023 și, atunci când comas, butonul pare să devină dezactivat, deoarece mai mulți membri mi-au spus că nu funcționează.

Multumesc,

Mike
Acest comentariu a fost redus la minimum de moderatorul de pe site
Bună, Mike,
Ți-am testat fișierul în computerul meu, e bine. Folosesc Office 2019. Vă rugăm să vedeți demonstrația de mai jos:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Skyyang,

Am descoperit că acest lucru funcționează atunci când un utilizator are MS Word, dar se pare că e-mailuri ca @hotmail; @gmail; și adresele de e-mail @live acești utilizatori au probleme în care butonul nu funcționează?
Se pare că nici pe telefoanele inteligente nu funcționează dacă utilizatorul se bazează pe acestea, spre deosebire de un computer.
În cele din urmă, am primit un răspuns de la un alt utilizator care folosește Windows 11, unde butonul nu funcționează deloc.

Ce ați experimentat cu exemplele de mai sus, vă rog?

Multumesc,

Mike
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL