Cum să trimiteți un e-mail prin Outlook când registrul de lucru este salvat în Excel?

Acest articol vorbește despre trimiterea unui e-mail prin Outlook atunci când un anumit registru de lucru este salvat în Excel. Vă rugăm să faceți așa cum arată tutorialul.

Trimiteți un e-mail prin Outlook când registrul de lucru este salvat cu cod VBA

Trimiteți un e-mail prin Outlook când registrul de lucru este salvat cu cod VBA

Pentru a trimite un e-mail prin Outlook atunci când registrul de lucru este salvat în Excel, procedați după cum urmează.

1. Vă rugăm să salvați registrul de lucru ca un registru de lucru Excel Macro-Enabled la început. Clic Fișier > Salvare ca. În Salvare ca caseta de dialog, selectați un folder pentru a salva registrul de lucru, denumiți-l în caseta Nume fișier, selectați Cartea de lucru Excel Macro-Enabled de la Salvați ca tip lista verticală, apoi faceți clic pe Economisește buton. Vedeți captura de ecran:

2. Deschideți registrul de lucru Excel Macro-Enabled pe care l-ați salvat chiar acum, apăsați pe Alt + F11 tastele simultan pentru a deschide Microsoft Visual Basic pentru aplicații fereastră.

2. În Microsoft Visual Basic pentru aplicații fereastra, vă rugăm să faceți dublu clic Acest manual de lucru în bara din stânga, apoi copiați și lipiți codul VBA de mai jos în Acest manual de lucru fereastra de cod. Vedeți captura de ecran:

Cod VBA: trimiteți e-mail atunci când registrul de lucru este salvat

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

notițe: Vă rugăm să înlocuiți Adresa de e-mail cu adresa de e-mail a destinatarului în linie .To = "Adresă de e-mail" și schimbați Cc, Subiect, precum și câmpurile de corp din codul VBA după cum aveți nevoie.

3. apasă pe Alt + Q tastele simultan pentru a închide Microsoft Visual Basic pentru aplicații fereastră.

De acum înainte, când actualizați registrul de lucru și îl salvați, va fi creat automat un e-mail cu atașat registrul de lucru actualizat. Vă rugăm să faceți clic pe Trimiteți pentru a trimite e-mailul. Vedeți captura de ecran:

notițe: Codul VBA funcționează numai atunci când utilizați Outlook ca program de e-mail.

Legate de articole:

• Cum să trimiteți automat e-mailuri pe baza valorii celulei din Excel?
• Cum să trimiteți e-mail dacă o anumită celulă este modificată în Excel?
• Cum să trimiteți e-mail dacă se face clic pe buton în Excel?
• Cum să trimiteți e-mail dacă data limită a fost respectată în Excel?
• Cum să trimiteți memento sau notificare prin e-mail dacă registrul de lucru este actualizat în Excel?