Cum să trimiteți e-mailuri cu mai multe atașamente atașate în Excel?

Acest articol vorbește despre trimiterea unui e-mail prin Outlook cu mai multe atașamente atașate în Excel.

Trimiteți un e-mail cu mai multe atașamente atașate în Excel cu cod VBA

Trimiteți un e-mail cu mai multe atașamente atașate în Excel cu cod VBA

Uimitor! Utilizarea unor file eficiente în Excel, cum ar fi Chrome, Firefox și Safari!

Economisiți 50% din timp și reduceți mii de clicuri de mouse pentru dvs. în fiecare zi!

---

Vă rugăm să faceți următoarele pentru a trimite un e-mail cu mai multe atașamente atașate în Excel.

1. Vă rugăm să introduceți un buton de comandă făcând clic pe Dezvoltator > Insera > Buton de comandă (control ActiveX). Vedeți captura de ecran:

2. După introducerea butonului de comandă, faceți clic dreapta pe el și selectați Afișați codul din meniul contextual.

3. În deschidere Microsoft Visual Basic pentru aplicații fereastra, faceți clic pe unelte > Referinte după cum se arată în imaginea de mai jos.

4. În Referințe - VBAProject caseta de dialog, vă rugăm să găsiți și să verificați Biblioteca de obiecte Microsoft Outlook , apoi faceți clic pe OK butonul.

5. Apoi înlocuiți codul original din fereastra Cod cu codul VBA de mai jos.

Cod VBA: trimiteți e-mail atașat cu mai multe atașamente în Excel

Private Sub CommandButton1_Click()
    Dim xStrFile As String
    Dim xFilePath As String
    Dim xFileDlg As FileDialog
    Dim xFileDlgItem As Variant
    Dim xOutApp As Outlook.Application
    Dim xMailOut As Outlook.MailItem
    Application.ScreenUpdating = False
    Set xOutApp = CreateObject("Outlook.Application")
    Set xMailOut = xOutApp.CreateItem(olMailItem)
    Set xFileDlg = Application.FileDialog(msoFileDialogFilePicker)
    If xFileDlg.Show = -1 Then
        With xMailOut
            .BodyFormat = olFormatRichText
            .To = "happy.xuebi@163.com"
            .Subject = "test"
            .HTMLBody = "test"
            For Each xFileDlgItem In xFileDlg.SelectedItems
                .Attachments.Add xFileDlgItem
            Next xFileDlgItem
            .Display
        End With
    End If
    Set xMailOut = Nothing
    Set xOutApp = Nothing
    Application.ScreenUpdating = True
End Sub

notițe: vă rugăm să specificați destinatarul e-mailului, subiectul și corpul prin schimbarea variației în .To = happy.xuebi@163.com, .Subject = "test" și .HTMLBody = "test" linii din cod.

6. apasă pe Alt + Q tastele împreună pentru a ieși din Microsoft Visual Basic pentru aplicații fereastră.

7. clic Dezvoltator > Mod de proiectare pentru a dezactiva modul de proiectare. Vedeți captura de ecran:

8. Faceți clic pe butonul de comandă pentru a rula codul. În pop-up Naviga , selectați fișierele pe care trebuie să le atașați în e-mail, apoi faceți clic pe OK buton. Vedeți captura de ecran:

9. Apoi este creat un e-mail cu câmpurile specificate și atașamentele listate. Vă rugăm să faceți clic pe Trimitere pentru a-l trimite. 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 e-mail la adresele de e-mail specificate în celulele din Excel?
• Cum să trimiteți e-mail cu copierea și lipirea unui interval specificat în corpul e-mailului în Excel?
• Cum se introduce semnătura în e-mailul Outlook când se trimite prin vba în Excel?
• Cum să trimiteți e-mail dacă data limită a fost respectată în Excel?
• Cum să trimiteți automat e-mailuri pe baza valorii celulei din Excel?

---

Cele mai bune instrumente de productivitate Office

Kutools pentru Excel vă rezolvă majoritatea problemelor și vă crește productivitatea cu 80%

• reutilizarea: Introduceți rapid formule complexe, diagrame și orice ai folosit anterior; Criptați celulele cu parola; Creați o listă de corespondență și trimiteți e-mailuri ...
• Super Formula Bar (editați cu ușurință mai multe linii de text și formulă); Layout de citire (citiți și editați cu ușurință un număr mare de celule); Lipiți la interval filtrat...
• Merge celule / rânduri / coloane fără a pierde date; Conținut de celule divizate; Combinați rânduri / coloane duplicate... Prevenirea celulelor duplicate; Comparați gamele...
• Selectați Duplicat sau Unic Rânduri; Selectați Rânduri goale (toate celulele sunt goale); Super Find și Fuzzy Find în multe cărți de lucru; Selectare aleatorie ...
• Copie exactă Mai multe celule fără modificarea referinței formulelor; Creați automat referințe la foi multiple; Introduceți gloanțe, Casete de selectare și multe altele ...
• Extrageți textul, Adăugați text, eliminați după poziție, Eliminați spațiul; Creați și imprimați subtotaluri de paginare; Convertiți conținutul dintre celule și comentarii...
• Super Filtru (salvați și aplicați scheme de filtrare altor foi); Sortare avansată după lună / săptămână / zi, frecvență și multe altele; Filtru special cu bold, italic ...
• Combinați cărți de lucru și foi de lucru; Merge Tables pe baza coloanelor cheie; Împărțiți datele în mai multe foi; Conversia în loturi xls, xlsx și PDF...
• Peste 300 de funcții puternice. Suportă Office / Excel 2007-2021 și 365. Acceptă toate limbile. Implementare ușoară în întreprinderea sau organizația dvs. Funcții complete Probă gratuită de 30 de zile. Garanție de returnare a banilor de 60 de zile.

Citeşte mai mult ... Descărcare gratuită... Cumpărare... 

---

Fila Office aduce interfața cu file în Office și vă face munca mult mai ușoară

• Activați editarea și citirea cu file în Word, Excel, PowerPoint, Publisher, Access, Visio și Project.
• Deschideți și creați mai multe documente în filele noi ale aceleiași ferestre, mai degrabă decât în ​​ferestrele noi.
• Vă crește productivitatea cu 50% și reduce sute de clicuri de mouse pentru dvs. în fiecare zi!

Citeşte mai mult ... Descărcare gratuită... Cumpărare...