Sut i anfon e-bost pan fydd y derbynwyr yn agor ffeil Excel atodiad?
Efallai y bydd y mwyafrif ohonom yn anfon rhai negeseuon pwysig gydag atodiad ffeil Excel at ein cleientiaid, felly mae angen i ni wybod a yw'r derbynnydd wedi derbyn y neges ac wedi agor yr atodiad ffeil. Yn yr achos hwn, gallwch greu cod VBA ar gyfer eich ffeil atodiad Excel, pan fydd y derbynnydd yn agor y llyfr gwaith ac yn actifadu'r cod, yna bydd e-bost prydlon yn cael ei anfon atoch yn awtomatig.
Anfonwch e-bost pan fydd y derbynwyr sydd â chod VBA yn agor y ffeil Excel atodiad
Anfonwch e-bost pan fydd y derbynwyr sydd â chod VBA yn agor y ffeil Excel atodiad
Cyn anfon y ffeil Excel hon, dylech greu cod fel a ganlyn:
1. Daliwch i lawr y ALT + F11 allweddi i agor y Microsoft Visual Basic ar gyfer Ceisiadau ffenestr.
2. Yna cliciwch ddwywaith Llyfr Gwaith hwn O dan y Prosiect VBA adran i agor modiwl gwag, ac yna copïo a gludo'r cod canlynol i'r modiwl:
Cod VBA: Anfon e-bost pan agorir y ffeil Excel:
Private Sub Workbook_Open()
'Updateby Extendoffice
Dim olkObj As Object
Dim olkEm As Object
Dim strbody As String
Set olkObj = CreateObject("Outlook.Application")
Set olkEm = olkObj.CreateItem(0)
strbody = "Hi there" & vbNewLine & vbNewLine & _
ThisWorkbook.Name & vbNewLine & _
"was opened by" & vbNewLine & _
Environ("username")
On Error Resume Next
With olkEm
.To = ""
.CC = ""
.BCC = ""
.Subject = "File opened"
.Body = strbody
.Send
End With
On Error GoTo 0
Set olkEm = Nothing
Set olkObj = Nothing
End Sub
Nodyn: Yn y cod uchod, dylech newid y cyfeiriad e-bost i'ch cyfeiriad eich hun yr ydych am dderbyn yr e-bost prydlon, a newid y pwnc i'ch angen.
3. Yna arbedwch y llyfr gwaith hwn fel Llyfr Gwaith Macro-alluogedig Excel fformat ffeil, gweler y screenshot:
4. Ac yna anfonwch neges gyda'r atodiad ffeil hwn at y derbynwyr sydd eu hangen arnoch, pan fydd y derbynwyr yn lawrlwytho ac yn agor y ffeil Excel hon ac yn actifadu'r cod, bydd e-bost prydlon yn cael ei anfon atoch yn awtomatig ac yn dweud wrthych fod y ffeil wedi'i hagor gan bwy fel a ganlyn screenshot wedi'i ddangos:
Nodyn: Dim ond pan fyddwch chi'n defnyddio Outlook fel eich rhaglen bost y mae'r dull hwn ar gael.
Offer Cynhyrchiant Swyddfa Gorau
Supercharge Eich Sgiliau Excel gyda Kutools ar gyfer Excel, a Phrofiad Effeithlonrwydd Fel Erioed Erioed. Kutools ar gyfer Excel Yn Cynnig Dros 300 o Nodweddion Uwch i Hybu Cynhyrchiant ac Arbed Amser. Cliciwch Yma i Gael Y Nodwedd Sydd Ei Angen Y Mwyaf...
Mae Office Tab yn dod â rhyngwyneb Tabbed i Office, ac yn 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!