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

Ինչպե՞ս կիրառել կոճակ `էլփոստ ուղարկելու համար` ներկայիս Word ֆայլով կցված: 

Եթե ​​Ձեզ անհրաժեշտ է Word- ի փաստաթղթից էլփոստով հաղորդագրություն ուղարկել Outlook- ի միջոցով, ինչպես նաև կցել ընթացիկ Word ֆայլը, կարող եք ստեղծել հրամանի կոճակ, այնուհետև ուղարկել հաղորդագրությունը ՝ կտտացնելով այս կոճակին ՝ առանց Outlook- ը բացելու: Այս հոդվածը ես կներկայացնեմ, թե ինչպես արագ և հեշտությամբ գործ ունենալ դրա հետ:

Կիրառեք կոճակ `էլփոստ ուղարկելու համար` ներկայիս Word ֆայլը կցված


Կիրառեք կոճակ `էլփոստ ուղարկելու համար` ներկայիս Word ֆայլը կցված

Խնդրում ենք անել Word ֆայլում այս աշխատանքը լուծելու հետևյալ քայլերը.

1, Նախ, դուք պետք է ստեղծեք հրամանի կոճակ, սեղմեք Երեվակիչ > Acyառանգության գործիքներ > Հրամանի կոճակ (ActiveX կառավարման), տես նկարի նկարը.

Doc կոճակ ՝ էլ.փոստ ուղարկելու համար 1

2, Ընտրեք կոճակը և կտտացրեք Հատկություններ տակ Երեվակիչ էջում Հատկություններ պատուհանը, մուտքագրեք վերնագրի համար անհրաժեշտ տեքստը մեջ Ձերբակալություն դաշտ, տես նկարի նկարը.

Doc կոճակ ՝ էլ.փոստ ուղարկելու համար 2

3, Հետո փակիր Հատկություններ պատուհանը, հիմա, աջով կտտացրեք կոճակին և ընտրեք Դիտել կոդը, տես նկարի նկարը.

Doc կոճակ ՝ էլ.փոստ ուղարկելու համար 3

4, Եվ հետո, ցուցադրվում է Microsoft Visual Basic հավելվածների համար պատուհանը, պատճենեք և կպցրեք ստորև բերված կոդը բնօրինակ սցենարների միջև, տես նկարի նկարը.

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 կոճակ ՝ էլ.փոստ ուղարկելու համար 4

ՆշումՎերոհիշյալ ծածկագրում դուք պետք է փոխեք առարկան, մարմնի տեքստը կամ ուղարկված հասցեն ձեր կարիքների համար:

5, Ապա պահեք և փակեք այս կոդը, կտտացրեք Դիզայնի ռեժիմ դիզայնի ռեժիմն անջատելու համար: Այժմ, երբ սեղմում եք ձեր ստեղծած հրամանի կոճակը, էլփոստ կստեղծվի ընթացիկ Word փաստաթղթով ՝ որպես կցորդ, տես նկարի նկարը.

Doc կոճակ ՝ էլ.փոստ ուղարկելու համար 5

6, Վերջապես, պարզապես անհրաժեշտ է սեղմել ուղարկել այս հաղորդագրությունն ուղարկելու կոճակը:


Բառի արտադրողականության առաջարկվող գործիքներ

 

Kutools Word- ի համար. Word- ի ավելի քան 100 առաջադեմ առանձնահատկություններ, խնայեք ձեր 50% ժամանակը

  • Բարդ և կրկնվող գործողությունները կարող են կատարվել միանգամյա մշակմամբ վայրկյանների ընթացքում:
  • Տեղադրեք բազմաթիվ պատկերներ միանգամից թղթապանակների մեջ Word փաստաթղթում:
  • Միացրեք և միացրեք բազմաթիվ Word ֆայլեր թղթապանակների մեջ մեկում ՝ ձեր ցանկալի պատվերի հետ:
  • Ընթացիկ փաստաթուղթը բաժանեք առանձին փաստաթղթերի `ըստ վերնագրի, հատվածի ընդմիջման կամ այլ չափանիշների:
  • Փոխարկել ֆայլերը Doc- ի և Docx- ի, Docx- ի և PDF- ի միջև, ընդհանուր փոխակերպումների և ընտրության գործիքների հավաքածու և այլն ...
Տեսակավորել մեկնաբանությունները ըստ
մեկնաբանություններ (23)
Դեռևս գնահատականներ չկան: Եղիր առաջինը, ով կգնահատի:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես փորձում եմ նամակն ուղարկել, որի վերնագիրն իմ դաշտերից մեկի բովանդակությունն է: Սա հնարավո՞ր է:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Hola, me podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
Շատ շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Extend Office թիմ,

Ես կարծում եմ, որ «xEmile»-ը սխալ է գրված: Այն պետք է լինի «xEmail»:

Մինչ կոդը աշխատում է, և խնդիր չկա, հետևյալ հայտարարությունը ոչինչ չի անի.

Սահմանել xEmail = Ոչինչ
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջույն, Աբհի,
Շնորհակալություն մեկնաբանության համար, ինչպես ասացիք, «xEmile»-ը սխալ գրված է, այն պետք է լինի «xEmail»: Ես թարմացրել եմ կոդը։
Կրկին շնորհակալություն!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ է դա անել, որպեսզի ուղարկեք փաստաթղթի միայն մեկ էջ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև, Դոն,
Ձեր առաջադրանքը լուծելու համար խնդրում ենք կիրառեք ստորև նշված կոդը, կոդի մեջ դուք պետք է փոխեք մեկնարկային և ավարտական ​​էջը ձեր սեփականի.

Մասնավոր ենթահրամանի կոճակ1_Click()

Dim xCurPageStart այնքան երկար, xCurPageEnd այնքան երկար, xCurPageRange որպես տիրույթ

Dim xCurPage որպես ամբողջ թիվ, xPages որպես ամբողջ թիվ

Dim xOutlookObj որպես օբյեկտ

Dim xEmail-ը որպես օբյեկտ

Dim xDoc-ը որպես փաստաթուղթ, xNewDoc-ը որպես փաստաթուղթ

Dim xFilePath-ը որպես տող

Dim xOldStart այնքան երկար, xOldEnd այնքան երկար

Ս.թ. սխալի Ռեզյումե Next

Դիմում. ScreenUpdating = Սուտ է

Սահմանել xOutlookObj = CreateObject («Outlook.Application»)

Սահմանել xEmail = xOutlookObj.CreateItem (olMailItem)

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

Սահմանել xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Save

xFilePath = xFilePath + «\կցված ֆայլ» + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, «.")) 'կցված ֆայլը կցված ֆայլի անունն է, փոփոխել ձեր կարիքը

xCurPageStart = 2 'մեկնարկային էջ

xCurPageEnd = 2 'վերջնական էջ

xPages = Selection.Information (wdNumberOfPagesInDocument)

xCurPageStart = Selection.GoTo(what:=wdGoToPage, Որը:=wdGoToNext, Անունը:=xCurPageStart).Սկսել

Եթե ​​xCurPage = xPages Ապա

xCurPageEnd = ActiveDocument.Content.End

Ուրիշ

xCurPageEnd = Selection.GoTo(what:=wdGoToPage, Որը:=wdGoToNext, Անունը:=xCurPageEnd + 1): Սկիզբ

Վերջ: Եթե

Սահմանել xCurPageRange = ActiveDocument.Range (xCurPageStart, xCurPageEnd)

xCurPageRange. Ընտրեք

xCurPageRange.Copy

Սահմանել xNewDoc = Application.Documents.Add(տեսանելի:=False)

xNewDoc.Ակտիվացնել

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName:=xFilePath

xNewDoc.Close

xDoc.Range (xOldStart, xOldEnd): Ընտրեք

xEmail-ով

.Subject = «Ֆաքս-տվյալներ»

.Body = «Սա փորձնական էլ.

.To = "yy@addin99.com"

.Կարևորություն = olImportanceNormal

.Կցորդներ.Ավելացնել xFilePath

.Dուցադրել

Վերջ

VBA.Kill xFilePath

Սահմանել xDoc = Ոչինչ

Սահմանել xEmail = Ոչինչ

Սահմանել xOutlookObj = Ոչինչ

Դիմում. ScreenUpdating = ueիշտ է

Վերջ Sub
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կազմել եմ լրացվող ձև MS word-ում: Ես օգտագործել եմ ժառանգական գործիքներ հաշվարկման համար և այլն: Ես նաև ավելացրել եմ ուղարկել կոճակը, որն աշխատում է ձևը էլ. Խնդիրն այն է, որ երբ ես նորից բացում եմ այս փաստաթուղթը պահպանելուց հետո, այն չի աշխատում: Ես նույնիսկ փորձել եմ պահպանել այն որպես մակրո միացված փաստաթուղթ, բայց ոչ մի օգուտ: Խնդրում եմ, կարող եք օգնել:
Շնորհակալություն
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես սկզբում այն ​​աշխատում էի, իսկ հետո ինչ-ինչ պատճառներով հիմա այն ինձ սխալ է տալիս 429-ի մասին, որ ActiveX բաղադրիչը չի կարող օբյեկտ ստեղծել: Ես բառացիորեն պարզապես պատճենեցի և տեղադրեցի: Սա աշխատում էր նախկինում, բայց ես պարզապես փոխեցի տառատեսակի չափը, կոճակը մեծացրի և վերնագիր դրեցի: Չե՞մ կարծում, որ պատահաբար փոխել եմ որոշ այլ կարգավորումներ: պատկերացում կա, թե դա ինչ կարող է լինել:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ողջու՜յն! Ես ուզում եմ հրամանի կոճակը ստիպել ուղարկել էլ. Կա՞ դա անելու միջոց:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես կցանկանայի, որ իմ փաստաթուղթն ուղարկվի որպես PDF փաստաթուղթ, այլ ոչ թե Word փաստաթուղթ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Օրինակ՝ Word-document-ում textbox-ից/տեքստային դաշտից տեքստ օգտագործելը և այն որպես տեքստ տեղադրել ձեր էլ. նամակի թեմայի տողում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Այո, սա նաև այն է, ինչ ես փնտրում եմ, կարո՞ղ է որևէ մեկը օգնել այս հարցում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Սա նաև աշխատում է Lotus Notes-ի համար:
Ի՞նչ պետք է փոխեմ «xOutlookObj»-ում:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Ընդլայնել գրասենյակը,
Կարո՞ղ ենք այլ էլփոստ սահմանել, որը կապված չէ Outlook-ի հետ: Ձեզ դուր է գալիս ուղիղ էլփոստը GoDaddy հաշվին:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Փորձում եմ պարզել նույն տեղեկությունը։ Ես օգտագործում եմ gmail և պետք է ստեղծեմ ձև, որը կուղարկեմ տարբեր էլփոստի հասցեներին, որոնք կարող են ավտոմատ կերպով հետ ուղարկել իմ gmail հաշիվ:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Ես ստեղծել եմ փաստաթուղթը, բայց հիմա իմ խնդիրն այն է, որ եթե ես ուղարկեմ այս ձևը, որպեսզի ասեմ, որ 4 հոգի լրացնեն, երբ նրանք բացում են այն էլ.փոստի հավելվածից, այն բացվում է միայն կարդալու ռեժիմով, և երբ նրանք սեղմում են ուղարկել, խնդրում է նրանց պահել, ինչպես նախկինում: դա թույլ կտա կոդը բացել ինձ հասցեագրված էլ. Կա՞ արդյոք այլ տարբերակ, քան նրանց ֆայլի գտնվելու վայրը տալը:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Կարո՞ղ եք այս կոդին ավելացնել Bcc: Ես փորձել եմ ավելացնել Bcc և ստացել եմ կոմպիլյացիայի սխալ ակնկալվող արտահայտության համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև Հեդեր,

Այս կոդը կարող եք ավելացնել Bcc: Օրինակ, դուք կարող եք ավելացնել .Bcc = "zmt@addin99.com" հենց ներքեւում .To = "yy@addin99.com": Այսպիսով, ծածկագիրը դառնում է.

Dim xOutlookObj որպես օբյեկտ
Dim xEmail-ը որպես օբյեկտ
Dim xDoc-ը որպես փաստաթուղթ
Դիմում. ScreenUpdating = Սուտ է
Սահմանել xOutlookObj = CreateObject («Outlook.Application»)
Սահմանել xEmail = xOutlookObj.CreateItem (olMailItem)
Սահմանել xDoc = ActiveDocument
xDoc.Save
xEmail-ով
.Subject = «Ֆաքս-տվյալներ»
.Body = «Սա փորձնական էլ.
.To = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Կարևորություն = olImportanceNormal
.Հավելվածներ.Ավելացնել xDoc.FullName
.Dուցադրել
Վերջ
Սահմանել xDoc = Ոչինչ
Սահմանել xEmail = Ոչինչ
Սահմանել xOutlookObj = Ոչինչ
Դիմում. ScreenUpdating = ueիշտ է

Խնդրում ենք տեսնել կից նկարը։ Հաճելի օր.
Sincerely,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարև ժողովուրդ,

Ես ուզում եմ կիրառել կոճակ, որտեղ սեղմում եմ և փաստաթուղթը ուղարկում եմ որպես էլ. Որպեսզի փաստաթուղթը էլփոստի տեքստն է: Ճիշտ այնպես, ինչպես ժապավենի վրա «ուղարկել ստացողին» կոճակի էֆեկտը:

Կարո՞ղ է ինչ-որ մեկը տալ ինձ դրա համար ճիշտ կոդը:

Շնորհակալություն:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Հնարավոր է, որ կոդը չի կարող օգնել ուղարկել ընթացիկ word փաստաթուղթը որպես էլփոստի տեքստ, եթե դա անել, նկարի և ֆայլի ձևաչափումը փաստաթղթում կկորչեն:
Եթե ​​ցանկանում եք ընթացիկ փաստաթուղթն ուղարկել որպես էլփոստի մարմին, Mail Merge-ը կարող է ձեզ լավություն անել:
Ձեզ անհրաժեշտ է Mail Merge էլփոստ ուղարկելու համար:
Եթե ​​Ձեզ անհրաժեշտ է, խնդրում ենք մեկնաբանել այստեղ:
Thank you!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

շնորհակալություն օգնության համար!

Ձեր առաջարկով կփորձեի։ Այսպիսով, այո, ինձ պետք է Mail Merge-ը Էլփոստ ուղարկելու համար:
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,

շնորհակալություն օգնության համար!

Ձեր առաջարկով կփորձեի։ Կարո՞ղ եք ինձ տալ փոստի միաձուլման կոդը:

Thanks!
Այս մեկնաբանությունը կայքի վարողի կողմից նվազագույնի է հասցվել
Բարեւ,
Ընթացիկ word փաստաթուղթը որպես փոստ ուղարկելու համար կարող եք ավելացնել Ուղարկել փոստի ստացողին հրաման ձեր QATԽնդրում եմ արեք հետևյալ կերպ
1. Բացեք ձեր word ֆայլը, որը ցանկանում եք ուղարկել, ապա սեղմեք Ֆայլ > Ընտրանքներ.
2. Ձախ վահանակում ընտրեք Արագ մուտք Գործիքադարակը.
3. Ընտրեք Հրամաններ ոչ ժապավենով - ից Ընտրեք հրամաններ.
4. Ընտրեք և ընտրեք Ուղարկել փոստի ստացողին և սեղմեք կոճակը Ավելացնել>>.
5: սեղմեք OK երկխոսությունը փակելու համար:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Հիմա, սա Ուղարկել փոստի ստացողին հրամանը կհայտնվի մեջ Արագ մուտք Գործիքադարակը ձեր Word պատուհանի վերևում: Այնուհետև կարող եք հարաբերական տեղեկատվությունը տեղադրել հաղորդագրության վերնագրի մեջ: Տեղեկատվությունն ավարտելուց հետո սեղմեք Ուղարկեք պատճենը, ընթացիկ word փաստաթուղթը որպես հիմնական հաղորդագրությունը կուղարկվի միանգամից:

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

Խնդրում եմ փորձեք սա, հուսով եմ, որ այն կարող է օգնել ձեզ:
Առայժմ ոչ մի մեկնաբանություն չկա
Թողեք ձեր մեկնաբանությունները
Հրապարակում որպես հյուր
×
Գնահատեք այս գրառումը.
0   Անձնավորություններ
Առաջարկվող վայրեր