Այս հոդվածում խոսվում է Outlook- ի միջոցով էլ.փոստ ուղարկելու մասին, երբ Excel- ում պահպանվում է որոշակի աշխատանքային գրքույկ: Խնդրում ենք արեք այնպես, ինչպես ցույց է տալիս ձեռնարկը:
Outlook- ի միջոցով նամակ ուղարկեք, երբ աշխատանքային գիրքը պահվում է VBA կոդով
Outlook- ի միջոցով էլ.փոստ ուղարկելու համար, երբ աշխատանքային գրքույկը պահվում է Excel- ում, կատարեք հետևյալը.
1. Խնդրում ենք նախ պահպանել աշխատանքային գրքույկը որպես Excel մակրոտնտեսական աշխատանքային գիրք: Սեղմել Ֆայլ > Պահել As, Մեջ Պահել As երկխոսության տուփ, ընտրեք աշխատանքային տետրը փրկելու համար պանակ, այն անվանեք File name վանդակում, ընտրեք Excel մակրոներով աշխատունակ գիրք - ից Պահել որպես տիպ բացվող ցուցակը, ապա կտտացրեք այն Փրկել կոճակ Տեսեք,
2. Բացեք Excel- ի մակրոէլեկտիվացված աշխատանքային գիրքը, որը հենց հիմա պահպանել եք, սեղմեք կոճակը ալտ + F11 ստեղները միաժամանակ բացելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
2. Մեջ Microsoft Visual Basic հավելվածների համար պատուհանը, խնդրում ենք կրկնակի սեղմել Այս գործառույթը ձախ բարում, ապա պատճենեք և կպցրեք ներքևի VBA կոդը ՝ Այս գործառույթը ծածկագրի պատուհան: Տեսեք,
VBA կոդ. Ուղարկեք էլ. Փոստ, երբ աշխատանքային գիրքը պահվում է
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
ՆշումԽնդրում եմ փոխարինել Էլեկտրոնային հասցե ստացողի էլ. փոստի հասցեին համապատասխան . To = "Էլ. Փոստի հասցե", եւ փոխեք VC կոդում Cc, Subject, ինչպես նաև մարմնի դաշտերը, որքան ձեզ հարկավոր է:
3. Սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.
Այսուհետ, երբ դուք թարմացնում եք աշխատանքային գիրքը և այն պահում եք, էլեկտրոնային փոստ կստեղծվի `կցված թարմացված աշխատանքային գրքի հետ: Խնդրում ենք սեղմել ուղարկել էլ.փոստը ուղարկելու կոճակը: Տեսեք,
ՆշումVBA կոդը գործում է միայն այն ժամանակ, երբ Outlook- ը օգտագործում եք որպես ձեր էլփոստի ծրագիր:
