Ta članek govori o pošiljanju e-pošte prek Outlooka, ko je določen delovni zvezek shranjen v Excelu. Naredite, kot kaže vadnica.
Ko je delovni zvezek shranjen s kodo VBA, pošljite e-pošto prek Outlooka
Če želite poslati e-pošto prek Outlooka, ko je delovni zvezek shranjen v Excelu, storite naslednje.
1. Prosimo, da delovni zvezek najprej shranite kot Excelov makro omogočen delovni zvezek. Kliknite file > Shrani kot. v Shrani kot v pogovornem oknu izberite mapo, v katero želite shraniti delovni zvezek, poimenujte ga v polje Ime datoteke in izberite Excelov delovni zvezek z omogočeno makro Iz Shrani kot vrsto in nato kliknite spustni seznam Shrani . Oglejte si posnetek zaslona:
2. Odprite Excelov delovni zvezek, ki ste ga pravkar shranili, in pritisnite druga + F11 tipke hkrati, da odprete Microsoft Visual Basic za aplikacije okno.
2. V Ljubljani Microsoft Visual Basic za aplikacije okno, prosimo, dvokliknite ThisWorkbook v levo vrstico, nato kopirajte in prilepite spodnjo kodo VBA v ThisWorkbook okno kode. Oglejte si posnetek zaslona:
Koda VBA: Ko je delovni zvezek shranjen, pošljite e-pošto
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
Opombe: Prosimo, zamenjajte Email naslov z e-poštnim naslovom prejemnika v vrstici .To = "E-poštni naslov"in spremenite polja Cc, Subject in body v kodo VBA, kot potrebujete.
3. Pritisnite druga + Q tipke hkrati, da zaprete tipko Microsoft Visual Basic za aplikacije okno.
Od zdaj naprej, ko posodobite delovni zvezek in ga shranite, se samodejno ustvari e-poštno sporočilo s priloženim posodobljenim delovnim zvezkom. Kliknite Pošlji gumb za pošiljanje e-pošte. Oglejte si posnetek zaslona:
Opombe: Koda VBA deluje samo, če Outlook uporabljate kot svoj e-poštni program.
