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:
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:
3. Apoi, închideți Proprietăţi , faceți clic dreapta pe buton și alegeți Afișați codul, vezi captura de ecran:
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 = ""
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Display
End With
Set xDoc = Nothing
Set xEmail = Nothing
Set xOutlookObj = Nothing
Application.ScreenUpdating = True
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:
6. În cele din urmă, trebuie doar să faceți clic Trimiteți pentru a trimite acest mesaj.
Cele mai bune instrumente de productivitate de birou
Kutools pentru Cuvânt - Crește-ți experiența Word cu Over 100 Caracteristici remarcabile!
🤖 Asistent AI Kutools: Transformă-ți scrisul cu AI - Generați conținut / Rescrie textul / Rezumat documente / Solicitați informații pe baza Documentului, toate în Cuvânt
📘 Stăpânirea documentelor: Pagini împărțite / Fuzionați documente / Exportați selecția în diferite formate (PDF/TXT/DOC/HTML...) / Conversie lot în PDF / Exportați paginile ca imagini / Imprimați mai multe fișiere simultan...
✏ Editarea continutului: Găsiți și înlocuiți în lot peste mai multe fișiere / Redimensionați toate imaginile / Transpuneți rânduri și coloane de tabel / Convertiți tabelul în text...
🧹 Curățare fără efort: Îndepărtați Spații suplimentare / Secțiuni pauze / Toate anteturile / Casete text / hiperlinkuri / Pentru mai multe instrumente de îndepărtare, mergeți la nostru Eliminați grupul...
➕ Inserții creative: Inserați Mii de separatori / Casete de bifare / Butoane radio / QR Code / coduri de bare / Tabel cu linii diagonale / Legenda ecuației / Image Caption / Legenda tabelului / Imagini multiple / Descoperiți mai multe în Inserați grupul...
???? Selectii de precizie: Repera cu precizie pagini specifice / tabele / forme / paragrafele de titlu / Îmbunătățiți navigarea cu mai mult Selectați caracteristici...
⭐ Îmbunătățiri de stele: Navigați rapid în orice locație / inserarea automată a textului repetitiv / comutați fără probleme între ferestrele documentelor / 11 Instrumente de conversie...