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

Kako uporabiti gumb za pošiljanje e-pošte s priloženo trenutno datoteko Word? 

Če morate poslati e-poštno sporočilo iz Wordovega dokumenta prek Outlooka in priložiti tudi trenutno Wordovo datoteko, lahko ustvarite ukazni gumb in nato pošljete sporočilo tako, da kliknete ta gumb, ne da bi odprli Outlook. V tem članku bom predstavil, kako se hitro in enostavno spoprijeti z njim.

Uporabite gumb za pošiljanje e-pošte s priloženo trenutno datoteko Word


Uporabite gumb za pošiljanje e-pošte s priloženo trenutno datoteko Word

Za reševanje tega opravila v Wordovi datoteki sledite naslednjim korakom:

1. Najprej ustvarite ukazni gumb, kliknite Razvojni > Podedovana orodja > Ukazni gumb (nadzor ActiveX), glej posnetek zaslona:

doc gumb za pošiljanje e-pošte 1

2. Izberite gumb in kliknite Nepremičnine pod Razvojni jeziček, v Nepremičnine v podokno vnesite besedilo napisa, ki ga potrebujete napis polje, glej posnetek zaslona:

doc gumb za pošiljanje e-pošte 2

3. Nato zaprite Nepremičnine podokno, z desno miškino tipko kliknite gumb in izberite Ogled kode, glej posnetek zaslona:

doc gumb za pošiljanje e-pošte 3

4. In nato, na prikazanem Microsoft Visual Basic za aplikacije okno, kopirajte in prilepite spodnjo kodo med prvotne skripte, glejte posnetek zaslona:

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 gumb za pošiljanje e-pošte 4

Opombe: V zgornji kodi spremenite temo, besedilo ali poslani naslov po svojih željah.

5. Nato shranite in zaprite to kodo, kliknite Način oblikovanja da izklopite način oblikovanja. Zdaj, ko kliknete ukazni gumb, ki ste ga ustvarili, bo ustvarjeno e-poštno sporočilo s trenutnim Wordovim dokumentom kot prilogo, glejte posnetek zaslona:

doc gumb za pošiljanje e-pošte 5

6. Končno morate samo klikniti Pošlji gumb za pošiljanje tega sporočila.


Priporočena orodja za produktivnost besed

 

Kutools za Word - Več kot 100 naprednih funkcij za Word, prihranite 50% časa

  • Zapletene in ponavljajoče se operacije je mogoče enkrat obdelati v nekaj sekundah.
  • V Wordov dokument hkrati vstavite več slik v mape.
  • Združite in združite več datotek Word v mapah v eno z želenim vrstnim redom.
  • Trenutni dokument razdelite na ločene dokumente glede na naslov, prelom odseka ali druga merila.
  • Pretvarjanje datotek med dokumenti Doc in Docx, Docx in PDF, zbirka orodij za pogoste pretvorbe in izbiro itd. ...
Komentarji (29)
Ocene še ni. Bodite prvi in ​​ocenite!
Ta komentar je moderator na spletnem mestu minimiziral
Poskušam poslati e-pošto z zadevo, ki je vsebina enega od mojih polj. Je to možno?
Ta komentar je moderator na spletnem mestu minimiziral
Hola, me podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
Hvala lepa.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Extend Office Team,

Verjamem, da je "xEmile" napačno črkovano. Mora biti 'xEmail'.

Medtem ko se koda izvaja in ni težav, ta stavek ne bo naredil ničesar:

Nastavite xEmail = Nič
Ta komentar je moderator na spletnem mestu minimiziral
Živjo, Abhi,
Hvala za vaš komentar, kot ste rekli, 'xEmile' je napačno črkovana, mora biti 'xEmail'. Posodobil sem kodo.
Hvala še enkrat!
Ta komentar je moderator na spletnem mestu minimiziral
Ali je to mogoče storiti tako, da pošljete samo eno stran dokumenta?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Don,
Če želite opraviti svojo nalogo, uporabite spodnjo kodo, v kodi morate spremeniti začetno in končno stran na svojo:

Zasebni podukazni gumb1_Klik()

Dim xCurPageStart As Long, xCurPageEnd As Long, xCurPageRange kot obseg

Dim xCurPage kot celo število, xPages kot celo število

Zatemni xOutlookObj kot objekt

Zatemni xEmail kot predmet

Dim xDoc kot dokument, xNewDoc kot dokument

Dim xFilePath kot niz

Dim xOldStart As Long, xOldEnd As Long

On Error Resume Next

Application.ScreenUpdating = Napačno

Nastavite xOutlookObj = CreateObject("Outlook.Application")

Nastavi xEmail = xOutlookObj.CreateItem(olMailItem)

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

Nastavite xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Shrani

xFilePath = xFilePath + "\attached file" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'priložena datoteka je ime datoteke priloge, spremenite glede na vaše potrebe

xCurPageStart = 2 'začetna stran

xCurPageEnd = 2 'končna stran

xPages = Selection.Information(wdNumberOfPagesInDocument)

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

Če je xCurPage = xPages Potem

xCurPageEnd = ActiveDocument.Content.End

Else

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

Konec Če

Nastavite xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Select

xCurPageRange.Copy

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

xNewDoc.Aktiviraj

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName:=xFilePath

xNewDoc.Zapri

xDoc.Range(xOldStart, xOldEnd).Izberi

Z xEmail

.Subject = "Podatki faksa"

.Body = "To je testno e-pošto."

.To = "yy@addin99.com"

.Pomen = olImportanceNormal

.Priloge.Dodaj xFilePath

.Prikaz

Končaj s

VBA.Kill xFilePath

Nastavite xDoc = Nič

Nastavite xEmail = Nič

Nastavite xOutlookObj = Nič

Application.ScreenUpdating = Res

End Sub
Ta komentar je moderator na spletnem mestu minimiziral
Naredil sem obrazec, ki ga je mogoče izpolniti v MS Word. Uporabil sem starejša orodja za izračun itd. Dodal sem tudi gumb za pošiljanje, ki deluje za pošiljanje obrazca na e-pošto. Težava je v tem, da ko ponovno odprem ta dokument po shranjevanju, ne deluje. Poskušal sem ga celo shraniti kot dokument z omogočenimi makri, vendar brez koristi. Ali lahko prosim pomagate?
Hvala
Ta komentar je moderator na spletnem mestu minimiziral
Sprva sem delal, potem pa mi iz nekega razloga zdaj prikaže napako 429 o komponenti ActiveX ne more ustvariti predmeta. dobesedno sem samo kopiral in prilepil. To je delovalo že prej, vendar sem samo spremenil velikost pisave, povečal gumb in ponovno označil napis. mislim, da nisem pomotoma spremenil kakšne druge nastavitve? imate kakšno idejo kaj bi to lahko bilo?
Ta komentar je moderator na spletnem mestu minimiziral
Živjo! Rad bi, da ukazni gumb pošlje e-pošto z Wordovim dokumentom kot telo e-pošte (moj word dokument je obrazec). Ali obstaja način za to?
Ta komentar je moderator na spletnem mestu minimiziral
Rad bi, da se moj dokument pošlje kot dokument PDF in ne kot word dokument.
Ta komentar je moderator na spletnem mestu minimiziral
Na primer z uporabo besedila iz polja z besedilom/besedilnega polja v Wordovem dokumentu in vstavljanjem besedila v zadevo vašega e-poštnega sporočila?
Ta komentar je moderator na spletnem mestu minimiziral
Ja, to je tudi tisto, kar me zanima, ali lahko kdo pomaga pri tej zahtevi?
Ta komentar je moderator na spletnem mestu minimiziral
Ali to deluje tudi za Lotus Notes?
Kaj moram spremeniti v "xOutlookObj"?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni Extend office,
Ali lahko nastavimo drugo e-pošto, ki ni povezana z Outlookom? Želite neposredno e-pošto v račun GoDaddy?
Ta komentar je moderator na spletnem mestu minimiziral
Poskušam izvedeti iste informacije. Uporabljam gmail in moram ustvariti obrazec za pošiljanje na različne e-poštne naslove, ki se lahko samodejno pošljejo nazaj v moj gmail račun.
Ta komentar je moderator na spletnem mestu minimiziral
Ustvaril sem dokument, vendar je moja težava zdaj ta, da če pošljem ta obrazec, da naj izpolnijo 4 osebe, ko ga odprejo iz priloge e-pošte, se odpre v načinu samo za branje in ko kliknejo Pošlji, jih pozove, naj shranijo kot prej. to bo omogočilo kodi, da odpre e-pošto, naslovljeno na mene. Ali obstaja način za to, razen da jim podate lokacijo datoteke?
Ta komentar je moderator na spletnem mestu minimiziral
Ali lahko tej kodi dodate Bcc? Poskušal sem dodati Bcc in prejel sem napako pri prevajanju za pričakovani izraz.
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljena Heather,

Tej kodi lahko dodate Skp. Na primer, lahko dodate .Bcc = "zmt@addin99.com" tik pod .To = "yy@addin99.com". Torej koda postane:

Zatemni xOutlookObj kot objekt
Zatemni xEmail kot predmet
Dim xDoc kot dokument
Application.ScreenUpdating = Napačno
Nastavite xOutlookObj = CreateObject("Outlook.Application")
Nastavi xEmail = xOutlookObj.CreateItem(olMailItem)
Nastavite xDoc = ActiveDocument
xDoc.Shrani
Z xEmail
.Subject = "Podatki faksa"
.Body = "To je testno e-pošto."
.To = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Pomen = olImportanceNormal
.Attachments.Add xDoc.FullName
.Prikaz
Končaj s
Nastavite xDoc = Nič
Nastavite xEmail = Nič
Nastavite xOutlookObj = Nič
Application.ScreenUpdating = Res

Oglejte si priloženo sliko. Imej lep dan.
S spoštovanjem,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni ljudje,

Želim uporabiti gumb, kjer kliknem in pošljem dokument kot e-pošto, ne kot prilogo, na en e-poštni naslov. Tako, da je dokument besedilo e-pošte. Tako kot učinek gumba "pošlji prejemniku" na traku.

Mi lahko kdo da pravo kodo za to?

Hvala.
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Morda koda ne more pomagati pri pošiljanju trenutnega wordovega dokumenta kot telesa e-pošte; če to storite, bosta slika in oblikovanje datoteke v dokumentu izgubljeni.
Če želite trenutni dokument poslati kot telo e-pošte, vam lahko spajanje dokumentov naredi uslugo.
Ali potrebujete spajanje dokumentov za pošiljanje e-pošte?
Če potrebujete, komentirajte tukaj.
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,

Hvala za vašo pomoč!

Poskusil bi z vašim predlogom. Torej da, za pošiljanje e-pošte potrebujem spajanje dokumentov.
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,

Hvala za vašo pomoč!

Poskusil bi z vašim predlogom. Mi lahko daš kodo za spajanje dokumentov?

Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Zdravo,
Če želite trenutni dokument Word poslati kot telo pošte, lahko dodate Pošlji prejemniku pošte ukaz svojemu QAT, naredite tako:
1. Odprite besedno datoteko, ki jo želite poslati, in kliknite file > možnosti.
2. V levem podoknu izberite Orodna vrstica za hitri dostop.
3. Izberite Ukazi ni na traku Iz Izberite ukaze iz.
4. Izberite in izberite Pošlji prejemniku pošte in kliknite gumb Dodaj>>.
5. klik OK , da zaprete pogovorno okno.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Zdaj pa to Pošlji prejemniku pošte ukaz bo prikazan v Orodna vrstica za hitri dostop na vrhu vašega Wordovega okna. Nato lahko vstavite relativne informacije v glavo sporočila. Ko končate z informacijami, kliknite Pošlji kopijo, bo sporočilo s trenutnim wordovim dokumentom kot telesom poslano takoj.

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

Prosim poskusite to, upam, da vam bo pomagalo!
Ta komentar je moderator na spletnem mestu minimiziral
Ugotovil sem, da gumb deluje za odpiranje e-pošte, vendar pri uporabi spajanja pošte postane gumb VBA iz neznanega razloga neaktiven?
Kako lahko zagotovim, da bo ob uporabi spajanja pošte gumb deloval tako, da uporabnik izpolni obrazec in nato aktivira gumb, prosim?
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Mike,
Ko uporabljam funkcijo spajanja pošte, je gumb aktiven.
Ali lahko bolj podrobno razložite svojo težavo?
Lahko pa svojo datoteko naložite sem, da bomo lahko preverili, kje je težava.
Hvala!
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Skyyang,

Oglejte si objavo, ki sem jo dal spodaj in ima priloženo kopijo.
Ta komentar je moderator na spletnem mestu minimiziral
Hi,
Oglejte si dokument, ki je priložen spodaj.
Moram ga posodobiti za uporabo obnove 2023 in zdi se, da pri združevanju gumb postane onemogočen, saj mi je več članov reklo, da ne deluje.

Hvala,

Mike
Ta komentar je moderator na spletnem mestu minimiziral
Pozdravljeni, Mike,
Preizkusil sem vašo datoteko v svojem računalniku, dobro je. Uporabljam Office 2019. Oglejte si spodnjo predstavitev:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Ta komentar je moderator na spletnem mestu minimiziral
Živjo Skyyang,

Ugotovil sem, da to deluje, ko ima uporabnik MS Word, vendar se zdi, da so e-poštna sporočila, kot je @hotmail; @gmail; in @live e-poštni naslovi imajo ti uporabniki težave, pri katerih gumb ne deluje?
Zdi se, da tudi na pametnih telefonih ne deluje, če se uporabnik zanaša na njihovo uporabo v nasprotju z računalnikom.
Nazadnje sem prejel odgovor drugega uporabnika, ki uporablja Windows 11, kjer gumb sploh ne deluje.

Prosim, kaj ste doživeli z zgornjimi primeri?

Hvala,

Mike
Tu še ni objavljenih komentarjev
Pustite vaše komentarje
Objava kot gost
×
Ocenite to objavo:
0   Znaki
Predlagane lokacije

Sledi nam

Copyright © 2009 - www.extendoffice.com. | Vse pravice pridržane. Poganja ga ExtendOffice. | Kazalo
Microsoft in logotip Office sta blagovni znamki ali registrirani blagovni znamki družbe Microsoft Corporation v ZDA in / ali drugih državah.
Zaščiteno s Sectigo SSL