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

Sut i gymhwyso botwm i anfon e-bost gyda'r ffeil Word gyfredol ynghlwm? 

Os oes angen i chi anfon neges e-bost o ddogfen Word trwy Outlook, ac atodi'r ffeil Word gyfredol hefyd, gallwch greu botwm gorchymyn, ac yna, anfon y neges trwy glicio ar y botwm hwn heb agor yr Outlook. Yr erthygl hon, byddaf yn cyflwyno sut i ddelio ag ef yn gyflym ac yn hawdd.

Defnyddiwch botwm i anfon e-bost gyda'r ffeil Word gyfredol ynghlwm


Defnyddiwch botwm i anfon e-bost gyda'r ffeil Word gyfredol ynghlwm

Gwnewch y camau canlynol ar gyfer datrys y swydd hon yn ffeil Word:

1. Yn gyntaf, dylech greu botwm gorchymyn, cliciwch Datblygwr > Offer Etifeddiaeth > Botwm Gorchymyn (Rheoli ActiveX), gweler y screenshot:

botwm doc i anfon e-bost 1

2. Dewiswch y botwm, a chlicio Eiddo O dan y Datblygwr tab, yn y Eiddo cwarel, teipiwch y testun pennawd sydd ei angen arnoch chi yn y Geiriad maes, gweler y screenshot:

botwm doc i anfon e-bost 2

3. Yna, cau'r Eiddo cwarel, nawr, de-gliciwch y botwm, a dewis Gweld y Cod, gweler y screenshot:

botwm doc i anfon e-bost 3

4. Ac yna, yn yr arddangosedig Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, copïo a gludo'r cod isod rhwng y sgriptiau gwreiddiol, gweler y 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

botwm doc i anfon e-bost 4

Nodyn: Yn y cod uchod, dylech newid y pwnc, testun y corff neu'r cyfeiriad wedi'i anfon i'ch angen.

5. Yna, arbed a chau'r cod hwn, cliciwch Modd Dylunio i ddiffodd y modd dylunio. Nawr, wrth glicio ar y botwm gorchymyn rydych chi wedi'i greu, bydd e-bost yn cael ei greu gyda'r ddogfen Word gyfredol fel atodiad, gweler y screenshot:

botwm doc i anfon e-bost 5

6. O'r diwedd, does ond angen i chi glicio anfon botwm i anfon y neges hon.


Offer Cynhyrchedd Geiriau a Argymhellir

 

Kutools For Word - Mwy na 100 o Nodweddion Uwch ar gyfer Word, Arbedwch Eich 50% o Amser

  • Gellir gwneud gweithrediadau cymhleth ac ailadroddus brosesu un-amser mewn eiliadau.
  • Mewnosodwch ddelweddau lluosog ar draws ffolderau yn nogfen Word ar unwaith.
  • Uno a chyfuno ffeiliau Word lluosog ar draws ffolderau yn un gyda'r drefn a ddymunir gennych.
  • Rhannwch y ddogfen gyfredol yn ddogfennau ar wahân yn ôl pennawd, toriad adran neu feini prawf eraill.
  • Trosi ffeiliau rhwng Doc a Docx, Docx a PDF, casglu offer ar gyfer trawsnewid a dewis cyffredin, ac ati ...
sylwadau (29)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio anfon yr e-bost gyda'r llinell bwnc yn cynnwys un o'm meysydd. Ydy hyn yn bosibl?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hola, mi podrían apoyar para que el archivo se convierta en PDF y se adjunte al correo en ves del word por favor.
Diolch yn fawr iawn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Tîm Swyddfa Extend,

Rwy'n credu bod 'xEmile' wedi'i gamsillafu. Dylai fod yn 'xEmail'.

Tra bod y cod yn rhedeg ac nad oes unrhyw broblem, ni fydd y datganiad canlynol yn gwneud dim:

Gosod xEmail = Dim byd
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Abhi,
Diolch am eich sylw, fel y dywedasoch, mae'r 'xEmile' wedi'i gamsillafu, dylai fod yn 'xEmail'. Rwyf wedi diweddaru'r cod.
Diolch i chi unwaith eto!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A ellir gwneud hyn fel mai dim ond un dudalen o ddogfen y byddwch yn ei hanfon?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Don,
I ddelio â'ch tasg, cymhwyswch y cod isod , yn y cod, dylech newid y dudalen gychwyn a'r dudalen ddiwedd i'ch un chi:

Is-orchymyn PreifatButton1_Cliciwch()

Dim xCurPageStart Mor Hir, xCurPageDiben Mor Hir, xCurPageYstod Fel Ystod

Dim xCurPage Fel Cyfanrif, xPages Fel Cyfanrif

Dim xOutlookObj Fel Gwrthrych

Dim xE-bost Fel Gwrthrych

Dim xDoc Fel Dogfen, xNewDoc Fel Dogfen

Dim xFilePath Fel Llinyn

Dim xOldStart Mor Hir, xHenDiwedd Cyhyd

Ar Ail-ddechrau Gwall Nesaf

Application.ScreenUpdating = Anghywir

Gosod xOutlookObj = CreateObject ("Outlook.Application")

Gosod xEmail = xOutlookObj.CreateItem(olMailItem)

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

Gosod xDoc = ActiveDocument

xOldStart = xDoc.Application.Selection.Start

xOldEnd = xDoc.Application.Selection.End

xDoc.Save

xFilePath = xFilePath + "\ ffeil ynghlwm" + VBA.Mid(xDoc.FullName, VBA.InStrRev(xDoc.FullName, ".")) 'ffeil ynghlwm yw enw'r ffeil atodiad, newid i'ch angen

xCurPageStart = tudalen gychwyn 2 '

xCurPageEnd = 2 ' dudalen diwedd

xPages = Selection.Information(wdNumberOfPagesInDocument)

xCurPageStart = Dewis.GoTo(beth:=wdGoToPage, Pa:=wdGoToNext, Enw:=xCurPageStart).Start

Os xCurPage = xPages Yna

xCurPageEnd = ActiveDocument.Content.End

arall

xCurPageEnd = Dewis.GoTo(beth:=wdGoToPage, Pa:=wdGoToNext, Enw:=xCurPageEnd + 1).Start

Gorffennwch Os

Gosod xCurPageRange = ActiveDocument.Range(xCurPageStart, xCurPageEnd)

xCurPageRange.Dewiswch

xCurPageRange.Copi

Gosod xNewDoc = Application.Documents.Add(Visible:=Gau)

xNewDoc.Activate

xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting

xNewDoc.SaveAs2 FileName:=xFilePath

xNewDoc.Close

xDoc.Range(xOldStart, xOldEnd).Dewiswch

Gyda xEmail

.Subject = "Ffacs-data"

.Body = "E-bost prawf yw hwn."

.To = "yy@addin99.com"

.Importance = olImportanceNormal

.Atodiadau.Ychwanegu xFilePath

.Arddangos

Diwedd Gyda

VBA.Kill xFilePath

Gosod xDoc = Dim byd

Gosod xEmail = Dim byd

Gosod xOutlookObj = Dim byd

Application.ScreenUpdating = Gwir

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi gwneud ffurflen y gellir ei llenwi yn MS word. Rwyf wedi defnyddio offer etifeddiaeth ar gyfer cyfrifo ac ati. Rwyf hefyd wedi ychwanegu botwm cyflwyno sy'n gweithio i anfon y ffurflen i e-bost. Y broblem yw pan fyddaf yn ailagor y ddogfen hon ar ôl arbed, nid yw'n gweithio. Rwyf hyd yn oed wedi ceisio ei arbed fel dogfen gyda macro ond dim defnydd. Allwch chi helpu os gwelwch yn dda?
diolch
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Cefais ef yn gweithio ar y dechrau, ac yna am ryw reswm nawr, mae'n rhoi gwall gwall 429 i mi am na all cydran activeX greu gwrthrych. Yn llythrennol fi jyst yn copïo a gludo. Gweithiodd hyn o'r blaen ond fe wnes i newid maint y ffont, gwneud y botwm yn fwy, ac ail-labelu capsiwn. Dydw i ddim yn meddwl fy mod wedi newid rhai gosodiadau eraill yn ddamweiniol? unrhyw syniad beth allai fod?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Hoffwn wneud i'r botwm gorchymyn anfon e-bost gyda'r ddogfen Word fel corff yr e-bost (ffurflen yw fy nogfen Word). A oes ffordd i wneud hynny?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hoffwn i fy nogfen i anfon fel dogfen PDF yn hytrach na dogfen Word.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Er enghraifft, defnyddio testun o flwch testun/maes testun yn Word-document, a'i fewnosod fel testun yn llinell pwnc eich E-bost?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydy, dyma beth rydw i ar ei ôl hefyd a all unrhyw un helpu gyda'r cais hwn?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Ydy hyn hefyd yn gweithio i Lotus Notes?
Beth sy'n rhaid i mi ei newid yn "xOutlookObj"?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo swyddfa Extend,
A allwn ni osod e-bost gwahanol nad yw'n gysylltiedig ag Outlook? Hoffi e-bost uniongyrchol i gyfrif GoDaddy?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwy'n ceisio darganfod yr un wybodaeth. Rwy'n defnyddio gmail ac mae angen i mi greu ffurflen i'w hanfon i wahanol gyfeiriadau e-bost sy'n gallu dychwelyd yn awtomatig i fy nghyfrif gmail.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi creu'r ddogfen ond fy mhroblem nawr yw os byddaf yn anfon y ffurflen hon i ddweud 4 o bobl i'w chwblhau, pan fyddant yn ei hagor o'r atodiad e-bost mae'n agor yn y modd darllen yn unig a phan fyddant yn clicio cyflwyno mae'n gofyn iddynt gadw fel o'r blaen bydd yn caniatáu i'r cod agor e-bost wedi'i gyfeirio ataf. A oes ffordd o gwmpas hyn heblaw rhoi lleoliad y ffeil iddynt?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Allwch chi ychwanegu Bcc at y cod hwn? Rwyf wedi ceisio ychwanegu Bcc a derbyn gwall llunio ar gyfer mynegiant disgwyliedig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Heather,

Gallwch ychwanegu Bcc at y cod hwn. Er enghraifft, gallwch ychwanegu .Bcc = "zmt@addin99.com" ychydig yn is na .To = "yy@addin99.com". Felly mae'r cod yn dod yn:

Dim xOutlookObj Fel Gwrthrych
Dim xE-bost Fel Gwrthrych
Dim xDoc Fel Dogfen
Application.ScreenUpdating = Anghywir
Gosod xOutlookObj = CreateObject ("Outlook.Application")
Gosod xEmail = xOutlookObj.CreateItem(olMailItem)
Gosod xDoc = ActiveDocument
xDoc.Save
Gyda xEmail
.Subject = "Ffacs-data"
.Body = "E-bost prawf yw hwn."
.To = "yy@addin99.com"
.Bcc = "zmt@addin99.com"
.Importance = olImportanceNormal
.Attachments.Add xDoc.FullName
.Arddangos
Diwedd Gyda
Gosod xDoc = Dim byd
Gosod xEmail = Dim byd
Gosod xOutlookObj = Dim byd
Application.ScreenUpdating = Gwir

Gweler y llun atodedig. Cael diwrnod braf.
Yn gywir,
Mandyhttps://www.extendoffice.com/images/stories/comments/comment-zmt/Add_Bcc_to_code.png
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Folks,

Rwyf am gymhwyso botwm lle byddaf yn clicio ac yn anfon y ddogfen fel e-bost, nid fel atodiad, i un Cyfeiriad E-bost. Fel bod y ddogfen yn destun yr e-bost. Yn union fel effaith y botwm "anfon at y derbynnydd" ar y rhuban.

A all rhywun roi'r cod cywir i mi ar gyfer hynny?

Diolch yn fawr.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
Efallai na all y cod helpu i anfon y ddogfen Word gyfredol fel y corff e-bost, os dylid ei wneud, bydd fformat y llun a'r ffeil o fewn y ddogfen yn cael ei golli.
Os ydych chi am anfon y ddogfen gyfredol fel corff e-bost, gall y Mail Merge wneud cymwynas â chi.
Ydych chi angen y Cyfuno Post ar gyfer anfon e-bost?
Os oes angen, rhowch sylwadau yma.
Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

diolch am eich help!

Byddwn yn rhoi cynnig arni gyda'ch awgrym. Felly ydw, dwi angen y Mail Merge ar gyfer anfon E-bost.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,

diolch am eich help!

Byddwn yn rhoi cynnig arni gyda'ch awgrym. A allech chi roi'r cod ar gyfer postgyfuno i mi?

Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo,
I anfon dogfen Word gyfredol fel corff post, gallwch ychwanegu'r Anfonwch at Derbynnydd Post gorchymyn i'ch QAT, gwnewch fel hyn:
1. Agorwch eich ffeil geiriau rydych chi am ei hanfon, ac yna cliciwch ffeil > Dewisiadau.
2. Ar y cwarel chwith, dewiswch Bar Offer Mynediad Cyflym.
3. Dewiswch Gorchmynion Ddim yn y Rhuban oddi wrth y Dewiswch orchmynion oddi wrth.
4. Dewiswch a dewiswch Anfonwch at Derbynnydd Post a chliciwch ar y botwm Ychwanegu >>.
5. Cliciwch OK i gau'r ymgom.
https://www.extendoffice.com/images/stories/comments/comment-skyyang/doc-send-file-1.png

Nawr, hyn Anfonwch at Derbynnydd Post Bydd gorchymyn yn ymddangos yn y Bar Offer Mynediad Cyflym ar frig eich ffenestr Word. Yna, gallwch chi fewnosod y wybodaeth gymharol ym mhennyn y neges. Ar ôl gorffen y wybodaeth, cliciwch Anfon copi, bydd y neges gyda dogfen Word gyfredol fel corff yn cael ei hanfon ar unwaith.

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

Rhowch gynnig ar hwn, gobeithio y gall eich helpu!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rwyf wedi canfod bod y botwm yn gweithio i agor e-bost ond wrth ddefnyddio mailmerge mae'r botwm VBA yn dod yn anactif am ryw reswm?
Sut gallaf sicrhau pan ddefnyddir postgyfuno y bydd y botwm yn gweithio i'r defnyddiwr gwblhau'r ffurflen ac yna actifadu'r botwm os gwelwch yn dda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mike,
Pan fyddaf yn defnyddio nodwedd mailmerge, mae'r botwm yn weithredol.
A allech chi egluro eich problem yn fanylach?
Neu gallwch uwchlwytho eich ffeil yma, fel y gallwn wirio ble mae'r broblem.
Diolch!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Skyyang,

Gweler y post a roddais isod sydd â'r copi ynghlwm.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Heia,
Gweler y ddogfen sydd ynghlwm isod.
Mae angen i mi ei ddiweddaru ar gyfer defnydd adnewyddu 2023 ac wrth uno mae'n ymddangos bod y botwm yn dod yn anabl gan fod sawl aelod wedi dweud wrthyf nad yw'n gweithio.

Diolch,

Mike
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, Mike,
Rwyf wedi profi eich ffeil yn fy nghyfrifiadur, mae'n gwaethygu'n dda. Rwy'n defnyddio Office 2019. Gweler y demo isod:
https://www.extendoffice.com/images/stories/comments/comment-skyyang/send-doeument.gif
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Skyyang,

Canfûm fod hyn yn gweithio pan fydd gan ddefnyddiwr MS Word ond mae'n ymddangos bod e-byst fel @hotmail; @gmail; a chyfeiriadau e-bost @live mae gan y defnyddwyr hynny broblemau lle nad yw'r botwm yn gweithio?
Mae'n ymddangos nad yw hefyd yn gweithio ar ffonau smart chwaith os yw'r defnyddiwr yn dibynnu ar ddefnyddio'r rhain yn hytrach na chyfrifiadur.
Yn olaf, rwyf wedi cael ymateb gan ddefnyddiwr arall gan ddefnyddio Windows 11 lle nad yw'r botwm yn gweithio o gwbl.

Beth ydych chi wedi'i brofi gyda'r enghreifftiau uchod os gwelwch yn dda?

Diolch,

Mike
Nid oes unrhyw sylwadau wedi'u postio yma eto

Dilynwch ni

Hawlfraint © 2009 - www.extendoffice.com. | Cedwir pob hawl. Wedi ei bweru gan ExtendOffice. | Map o'r safle
Mae Microsoft a logo'r Swyddfa yn nodau masnach neu'n nodau masnach cofrestredig Microsoft Corporation yn yr Unol Daleithiau a / neu wledydd eraill.
Wedi'i warchod gan Sectigo SSL