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

Sut i anfon e-bost trwy Outlook pan arbedir llyfr gwaith yn Excel?

Mae'r erthygl hon yn sôn am anfon e-bost trwy Outlook pan arbedir llyfr gwaith penodol yn Excel. Gwnewch fel y dengys y tiwtorial.

Anfonwch e-bost trwy Outlook pan arbedir llyfr gwaith gyda chod VBA


Anfonwch e-bost trwy Outlook pan arbedir llyfr gwaith gyda chod VBA

Ar gyfer anfon e-bost trwy Outlook pan fydd y llyfr gwaith yn cael ei gadw yn Excel, gwnewch fel a ganlyn.

1. Cadwch y llyfr gwaith fel Llyfr Gwaith Macro-alluog Excel ar y dechrau. Cliciwch ffeil > Save As. Yn y Save As blwch deialog, dewiswch ffolder i achub y llyfr gwaith, ei enwi yn y blwch enw Ffeil, dewiswch Llyfr Gwaith Macro-alluogedig Excel oddi wrth y Cadw fel math rhestr ostwng, ac yna cliciwch ar y Save botwm. Gweler y screenshot:

2. Agorwch y Llyfr Gwaith Macro-alluog Excel rydych chi wedi'i arbed nawr, pwyswch y Alt + F11 allweddi ar yr un pryd i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

2. Yn y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr, cliciwch ddwywaith Llyfr Gwaith hwn yn y bar chwith, yna copïwch a gludwch y cod VBA isod i'r Llyfr Gwaith hwn ffenestr cod. Gweler y screenshot:

Cod VBA: Anfon e-bost pan arbedir llyfr gwaith

Private Sub Workbook_AfterSave(ByVal Success As Boolean)
'Updated by Extendoffice 20181102
    Dim xOutApp As Object
    Dim xMailItem As Object
    Dim xName As String
    On Error Resume Next
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailItem = xOutApp.CreateItem(0)
    xName = ActiveWorkbook.FullName
    With xMailItem
        .To = "Email Address"
        .CC = ""
        .Subject = "The workbook has been saved"
        .Body = "Hi," & Chr(13) & Chr(13) & "File is now updated."
        .Attachments.Add xName
        .Display
       '.send
    End With
    Set xMailItem = Nothing
    Set xOutApp = Nothing
End Sub

Nodyn: Amnewid y e-bost Cyfeiriad gyda'r cyfeiriad e-bost derbynnydd yn unol .To = "Cyfeiriad E-bost", a newid y Cc, Pwnc yn ogystal â meysydd y corff yn y cod VBA yn ôl yr angen.

3. Gwasgwch y Alt + Q allweddi ar yr un pryd i gau'r Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.

O hyn ymlaen, pan fyddwch chi'n diweddaru'r llyfr gwaith a'i gadw, bydd e-bost yn cael ei greu'n awtomatig gyda'r llyfr gwaith wedi'i ddiweddaru ynghlwm. Cliciwch y anfon botwm i anfon yr e-bost. Gweler y screenshot:

Nodyn: Dim ond pan fyddwch chi'n defnyddio Outlook fel eich rhaglen e-bost y mae'r cod VBA yn gweithio.


Erthyglau cysylltiedig:


Yr Offer Cynhyrchedd Swyddfa Gorau

Mae Kutools for Excel yn Datrys y rhan fwyaf o'ch Problemau, ac yn Cynyddu Eich Cynhyrchedd 80%

  • Ailddefnyddio: Mewnosod yn gyflym fformwlâu cymhleth, siartiau ac unrhyw beth rydych chi wedi'i ddefnyddio o'r blaen; Amgryptio Celloedd gyda chyfrinair; Creu Rhestr Bostio ac anfon e-byst ...
  • Bar Fformiwla Gwych (golygu llinellau lluosog o destun a fformiwla yn hawdd); Cynllun Darllen (darllen a golygu nifer fawr o gelloedd yn hawdd); Gludo i'r Ystod Hidlo...
  • Uno Celloedd / Rhesi / Colofnau heb golli Data; Cynnwys Celloedd Hollt; Cyfuno Rhesi / Colofnau Dyblyg... Atal Celloedd Dyblyg; Cymharwch y Meysydd...
  • Dewiswch Dyblyg neu Unigryw Rhesi; Dewiswch Blank Rows (mae pob cell yn wag); Darganfyddiad Gwych a Darganfyddiad Niwlog mewn Llawer o Lyfrau Gwaith; Dewis ar Hap ...
  • Copi Union Celloedd Lluosog heb newid cyfeirnod fformiwla; Auto Creu Cyfeiriadau i Daflenni Lluosog; Mewnosod Bwledi, Blychau Gwirio a mwy ...
  • Testun Detholiad, Ychwanegu Testun, Tynnu yn ôl Swydd, Tynnwch y Gofod; Creu ac Argraffu Subtotals Paging; Trosi rhwng Cynnwys a Sylwadau Celloedd...
  • Hidlo Super (arbed a chymhwyso cynlluniau hidlo i ddalenni eraill); Trefnu Uwch yn ôl mis / wythnos / dydd, amlder a mwy; Hidlo Arbennig gan feiddgar, italig ...
  • Cyfuno Llyfrau Gwaith a Thaflenni Gwaith; Uno Tablau yn seiliedig ar golofnau allweddol; Rhannwch Ddata yn Daflenni Lluosog; Trosi Swp xls, xlsx a PDF...
  • Mwy na 300 o nodweddion pwerus. Yn cefnogi Office / Excel 2007-2021 a 365. Yn cefnogi pob iaith. Defnydd hawdd yn eich menter neu sefydliad. Nodweddion llawn treial am ddim 30 diwrnod. Gwarant arian yn ôl 60 diwrnod.
tab kte 201905

Mae Tab Office yn Dod â rhyngwyneb Tabbed i'r Swyddfa, a Gwneud Eich Gwaith yn Haws o lawer

  • Galluogi golygu a darllen tabbed yn Word, Excel, PowerPoint, Cyhoeddwr, Mynediad, Visio a Phrosiect.
  • Agor a chreu dogfennau lluosog mewn tabiau newydd o'r un ffenestr, yn hytrach nag mewn ffenestri newydd.
  • Yn cynyddu eich cynhyrchiant 50%, ac yn lleihau cannoedd o gliciau llygoden i chi bob dydd!
gwaelod officetab
sylwadau (17)
Dim sgôr eto. Byddwch y cyntaf i sgorio!
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut i awtomeiddio'r hysbysiad e-bost yn VBA yn seiliedig ar ystod Dyddiad, heb orfod gweld y ffenestr naid am ganiatâd diogelwch i ganiatáu i VBA anfon yr e-bost.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Gracias. Ymgynghorwch: utilizando esta misma rutina, como podría enviar el correo a un correo específico dependiendo el valor de otra celda?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl bawb, hoffwn ofyn sut i atodi cyswllt swyddogaethol i ffolder penodol ar y gweinydd, os byddaf yn gludo'r ddolen, mae'n ymddangos yn y llyfr gwaith yn union fel testun plaen ac felly nid yw'n gweithio yn yr e-bost a dderbyniwyd, sut y gallaf trowch ef yn ddolen, fel y gall derbynwyr glicio arno?
Hoffwn ddefnyddio'r ffordd hon yn lle anfon ffeil excel amgaeëdig.
Diolch am gyngor
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Robert,
Mae'n ddrwg gennym ni all helpu gyda hyn, croeso i chi bostio unrhyw gwestiwn am Excel i'n fforwm: https://www.extendoffice.com/forum.html. Byddwch yn cael mwy o gefnogaeth Excel gan ein cefnogwyr Excel proffesiynol neu eraill.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Rhoddais hwn yng nghorff yr e-bost ac fe weithiodd i mi ...
"ffeil:///Z:\dir1\dir2\dir3\Test1.xlsm"
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo, erthygl neis! Un peth rydw i wedi bod yn ceisio'i gyflawni gyda hyn yw cysylltu cyflwr presennol y llyfr gwaith i'r e-bost.

Ar hyn o bryd, dim ond cyflwr gwreiddiol y ffeil y mae'n ei anfon ac nid yw'n cynnwys unrhyw newidiadau y byddai'r defnyddiwr wedi'u gwneud.

Unrhyw syniadau ar sut i weithredu hyn gan ddefnyddio macro?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Chris,
Mae'r cod wedi'i ddiweddaru gyda'r broblem wedi'i datrys, rhowch gynnig arni. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Chris,

Yr wyf wedi mentro ar yr un mater.
Ar hyn o bryd mae'r codau'n cael eu defnyddio yn y modiwl "cynt".
Sy'n golygu y bydd yr e-bost yn anfon y daenlen sydd wedi'i chadw o'r blaen.

Mae modiwl arall "aftersave".
Cymhwysais y cod yn y modiwl hwn ac roedd yn gweithio fel swyn.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Sut byddai hyn yn cael ei drin ar gyfer dogfen Office 365. Mae'n arbed yn awtomatig.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
A oes modd i'r e-bost awtomataidd gael ei amgryptio'n awtomatig?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Hi Mike,
Mae'n ddrwg gennym ni all helpu i ddatrys y broblem hon. Diolch i chi am eich sylw.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo! Diolch yn fawr am y canllaw hwn :-) hoffwn wneud rhywbeth mwy yn y cod hwn - anfon e-bost yn seiliedig ar y gwledydd. Mae'n golygu bod yn rhaid i mi greu gorchmynion gyda os a dewis. Reit? Rwyf eisoes wedi dileu'r atodiad o e-bost. Hoffwn ychwanegu'r ddolen gyda llwybr i mewn i ffolder yn lle hynny. Ond pan rhediad macro, nid yw'r gorchymyn yn ddilys :-(
Rwy'n gwerthfawrogi pob help sut i'w ychwanegu yno.
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo - Sut alla i gynnwys data celloedd yn y maes "cc" e-bost?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo Brent,
Gan dybio eich bod am gynnwys y gwerth yng nghell a7 yn y maes "cc" e-bost, rhowch gynnig ar y VBA isod.

Is Gweithlyfr Preifat_Ar ôl Arbed(Llwyddiant ByVal Fel Boole)

'Diweddarwyd gan Extendoffice 20200628

Dim xOutApp Fel Gwrthrych

Dim xMailItem Fel Gwrthrych

Dim xName Fel Llinyn

Ar Ail-ddechrau Gwall Nesaf

Gosod xOutApp = CreateObject ("Outlook.Application")

Gosod xMailItem = xOutApp.CreateItem(0)

xName = ActiveWorkbook.FullName

Gyda xMailItem

.To = "Cyfeiriad E-bost"

.CC = Ystod ("a7").Gwerth


.Subject = "Mae'r llyfr gwaith wedi'i gadw"

.Body = "Helo," & Chr(13) & Chr(13) & "Ffeil wedi ei diweddaru nawr."

.Attachments.Add xName

.Arddangos

'.anfon

Diwedd Gyda

Gosod xMailItem = Dim byd

Gosod xOutApp = Dim byd

Is-End
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Annwyl Bawb, a all rhywun fy helpu, rwy'n ddechreuwr mewn codio VBA, rwyf wedi gwneud rhywfaint o addasiad, ond sut alla i wneud hynny anfonwch e-bost os yw'r llyfr gwaith yn cael ei gadw, ac os yw enw defnyddiwr yn wahanol, fel os yw enw defnyddiwr mae'r orsaf yn glade2 yna anfonwch e-bost os caiff y llyfr gwaith ei gadw, fel arall peidiwch ag anfon.

Diolch yn fawr am eich cefnogaeth
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo florin,
Heb gael eich pwynt. Beth mae eich enw defnyddiwr yn ei gynrychioli?
Lleihawyd y sylw hwn gan y safonwr ar y wefan
Helo grisial, diolch i chi am eich ateb, usernane yn usernane amgylchedd, ac yr wyf wedi ei wneud, defnyddiais swyddogaeth os ac ymadael is.
Diolch yn fawr.
Nid oes unrhyw sylwadau wedi'u postio yma eto
Gadewch eich sylwadau
Postio fel Gwestai
×
Graddiwch y swydd hon:
0   Cymeriadau
Lleoliadau a Awgrymir

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