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
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 Instrumente > 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 = ""
.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 Subnotițe: vă rugăm să specificați destinatarul e-mailului, subiectul și corpul prin schimbarea variației în .Pentru a = , .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 Trimiteți 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.
Trimiteți ușor e-mail prin Outlook pe baza câmpurilor listei de discuții create în Excel:
Trimite emailuri utilitatea Kutools pentru Excel ajută utilizatorii să trimită e-mailuri prin Outlook pe baza listei de corespondență create în Excel.
Descărcați și încercați acum! (traseu gratuit de 30 de zile)
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 de birou
Îmbunătățiți-vă abilitățile Excel cu Kutools pentru Excel și experimentați eficiența ca niciodată. Kutools pentru Excel oferă peste 300 de funcții avansate pentru a crește productivitatea și a economisi timp. Faceți clic aici pentru a obține funcția de care aveți cea mai mare nevoie...
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!
