Ինչպե՞ս նամակ ուղարկել Outlook- ի միջոցով, երբ աշխատանքային գիրքը պահվում է Excel- ում:

Այս ուղեցույցը ցույց է տալիս, թե ինչպես ինքնաբերաբար նամակ ուղարկել Outlook-ի միջոցով, երբ որոշակի աշխատանքային գիրք պահվում է Excel-ում: Օգտագործելով պարզ VBA կոդ, դուք կարող եք ապահովել, որ ձեր աշխատանքային գրքի թարմացումները անխափան կերպով համօգտագործվեն:

Outlook- ի միջոցով նամակ ուղարկեք, երբ աշխատանքային գիրքը պահվում է VBA կոդով

Outlook- ի միջոցով նամակ ուղարկեք, երբ աշխատանքային գիրքը պահվում է VBA կոդով

Outlook- ի միջոցով էլ.փոստ ուղարկելու համար, երբ աշխատանքային գրքույկը պահվում է Excel- ում, կատարեք հետևյալը.

1. Նախ պահեք աշխատանքային գիրքը որպես Excel-ի մակրո-միացված աշխատանքային գրքույկ: Սեղմեք Ֆայլ > Պահել As, Մեջ Պահել As երկխոսության տուփ, ընտրեք թղթապանակ՝ աշխատանքային գիրքը պահելու համար, Ֆայլի անուն վանդակում մուտքագրեք անուն, ընտրեք 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 = "Էլ. Փոստի հասցե". Փոփոխել Cc, Առարկա և Մարմին անհրաժեշտության դեպքում VBA կոդի դաշտերը:

3. Սեղմեք ալտ + Q ստեղները միաժամանակ փակելու համար Microsoft Visual Basic հավելվածների համար պատուհան.

Այսուհետ, երբ թարմացնեք և պահպանեք աշխատանքային գիրքը, ավտոմատ կերպով կստեղծվի նամակ՝ կցված թարմացված աշխատանքային գրքույկով: Խնդրում ենք սեղմել ուղարկել էլ.փոստը ուղարկելու կոճակը: Տեսեք,

ՆշումԱյս VBA կոդը աշխատում է միայն այն դեպքում, եթե դուք օգտագործում եք Outlook-ը որպես ձեր էլփոստի ծրագիր:

Առնչվող հոդվածներ քանակը:

• Ինչպե՞ս ավտոմատ կերպով էլ-նամակ ուղարկել Excel- ում բջջային արժեքի հիման վրա:
• Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում որոշակի բջիջ է փոփոխվել:
• Ինչպե՞ս նամակ ուղարկել, եթե Excel- ում կտտացնում են կոճակը:
• Ինչպե՞ս էլեկտրոնային նամակ ուղարկել, եթե Excel- ում լրացել է ժամկետը:
• Ինչպե՞ս ուղարկել էլփոստի հիշեցում կամ ծանուցում, եթե աշխատանքային գիրքը թարմացվում է Excel- ում: