Ինչպե՞ս նամակ ուղարկել Outlook- ի միջոցով, երբ աշխատանքային գիրքը պահվում է Excel- ում:
Այս հոդվածում խոսվում է Outlook- ի միջոցով էլ.փոստ ուղարկելու մասին, երբ Excel- ում պահպանվում է որոշակի աշխատանքային գրքույկ: Խնդրում ենք արեք այնպես, ինչպես ցույց է տալիս ձեռնարկը:
Outlook- ի միջոցով նամակ ուղարկեք, երբ աշխատանքային գիրքը պահվում է VBA կոդով
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- ը օգտագործում եք որպես ձեր էլփոստի ծրագիր:
Առնչվող հոդվածներ քանակը:
- Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել Excel- ում բջջային արժեքի հիման վրա:
- Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում որոշակի բջիջ է փոփոխվել:
- Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում կտտացնում են կոճակը:
- Ինչպե՞ս էլեկտրոնային նամակ ուղարկել, եթե Excel- ում լրացել է ժամկետը:
- Ինչպե՞ս ուղարկել էլփոստի հիշեցում կամ ծանուցում, եթե աշխատանքային գիրքը թարմացվում է Excel- ում:
Գրասենյակի արտադրողականության լավագույն գործիքները
Լրացրեք ձեր Excel-ի հմտությունները Kutools-ի հետ Excel-ի համար և փորձեք արդյունավետությունը, ինչպես երբեք: Kutools-ը Excel-ի համար առաջարկում է ավելի քան 300 առաջադեմ առանձնահատկություններ՝ արտադրողականությունը բարձրացնելու և ժամանակ խնայելու համար: Սեղմեք այստեղ՝ Ձեզ ամենաշատ անհրաժեշտ հատկանիշը ստանալու համար...
Office Tab- ը Tabbed ինտերֆեյսը բերում է Office, և ձեր աշխատանքը շատ ավելի դյուրին դարձրեք
- Միացնել ներդիրներով խմբագրումը և ընթերցումը Word, Excel, PowerPoint- ով, Հրատարակիչ, Access, Visio և Project:
- Բացեք և ստեղծեք բազմաթիվ փաստաթղթեր նույն պատուհանի նոր ներդիրներում, այլ ոչ թե նոր պատուհաններում:
- Բարձրացնում է ձեր արտադրողականությունը 50%-ով և նվազեցնում մկնիկի հարյուրավոր սեղմումները ձեզ համար ամեն օր: