Kako poslati e-pošto prek Outlooka, ko je delovni zvezek shranjen v Excelu?
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
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 Ta delovni zvezek v levo vrstico, nato kopirajte in prilepite spodnjo kodo VBA v Ta delovni zvezek 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 SubOpombe: 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.
Sorodni članki:
- Kako samodejno poslati e-pošto na podlagi vrednosti celice v Excelu?
- Kako poslati e-pošto, če je določena celica spremenjena v Excelu?
- Kako poslati e-pošto, če v Excelu kliknemo na gumb?
- Kako poslati e-pošto, če je bil datum izpolnjen v Excelu?
- Kako poslati e-poštni opomnik ali obvestilo, če je delovni zvezek posodobljen v Excelu?
Najboljša orodja za pisarniško produktivnost
Kutools za Excel rešuje večino vaših težav in poveča produktivnost za 80%
- Ponovna uporaba: Hitro vstavite zapletene formule, grafikoni in vse, kar ste že uporabljali; Šifriraj celice z geslom; Ustvari poštni seznam in pošiljanje e-pošte ...
- Vrstica Super Formula (enostavno urejanje več vrstic besedila in formule); Bralna postavitev (enostavno branje in urejanje velikega števila celic); Prilepite v filtrirani obseg...
- Združi celice / vrstice / stolpce brez izgube podatkov; Vsebina razdeljenih celic; Združi podvojene vrstice / stolpce... prepreči podvojene celice; Primerjaj obsege...
- Izberite Duplicate ali Unique Vrstice; Izberite prazne vrstice (vse celice so prazne); Super Find in Fuzzy Find v mnogih delovnih zvezkih; Naključna izbira ...
- Natančna kopija Več celic brez spreminjanja sklica formule; Samodejno ustvarjanje referenc na več listov; Vstavi oznake, Potrditvena polja in še več ...
- Izvleček besedila, Dodaj besedilo, Odstrani po položaju, Odstrani presledek; Ustvari in natisni vmesne seštevke strani Pretvarjanje med vsebino celic in komentarji...
- Super filter (shranite in uporabite sheme filtrov za druge liste); Napredno razvrščanje glede na mesec / teden / dan, pogostost in drugo; Poseben filter s krepko, ležeče ...
- Združite delovne zvezke in delovne liste; Spoji tabele na podlagi ključnih stolpcev; Razdelite podatke na več listov; Paketna pretvorba xls, xlsx in PDF...
- Več kot 300 zmogljivih funkcij. Podpira Office / Excel 2007-2019 in 365. Podpira vse jezike. Preprosta namestitev v vašem podjetju ali organizaciji. Vse funkcije 30-dnevnega brezplačnega preskusa. 60-dnevno jamstvo za vračilo denarja.
Kartica Office prinaša vmesnik z zavihki v Office in poenostavi vaše delo
- Omogočite urejanje in branje z zavihki v Wordu, Excelu, PowerPointu, Publisher, Access, Visio in Project.
- Odprite in ustvarite več dokumentov v novih zavihkih istega okna in ne v novih oknih.
- Poveča vašo produktivnost za 50% in vsak dan zmanjša na stotine klikov z miško!
