Note: The other languages of the website are Google-translated. Back to English

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 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.


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! (30- traseu liber de o zi)



Legate de articole:


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.
fila kte 201905

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!
fundul officetab
Comentarii (14)
Evaluat 5 din 5 · evaluări 1
Acest comentariu a fost redus la minimum de moderatorul de pe site
Pot să „Trimit rapid e-mailuri cu mai multe atașamente atașate în Excel cu Kutools pentru Excel” urmând pașii de mai sus, dar aș dori să fac un pas mai departe și să personalizez fiecare e-mail inserând numele lor (dintr-o coloană din foaia Excel) în corpul e-mailului. În timp ce mă aflu în corpul e-mailului, încerc să selectez câmpul și să dau clic pe „Insert Placeholder”, dar nu se întâmplă nimic. Ai idee de ce sau cum pot remedia asta? Mulțumesc!
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ce se întâmplă dacă fișierele de mai sus sunt localizate în sub-dosare? Cum să cauți un fișier în folder și subfoldere?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Ce se întâmplă dacă mai mulți utilizatori diferiți și atașamente diferite vor fi trimise cu un subiect diferit.
Acest comentariu a fost redus la minimum de moderatorul de pe site
codul de mai sus funcționează perfect, mulțumesc!! dar semnătura mea automată de e-mail pare să dispară odată cu acest cod. ai idee de ce?
Acest comentariu a fost redus la minimum de moderatorul de pe site
HI Team .... nu pot vedea atașamentul în e-mail, așa că dacă vă urmez pasul... vă rog, puteți ajuta
Acest comentariu a fost redus la minimum de moderatorul de pe site
Superb...... Funcționează perfect.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Mi-a plăcut să lucrez prin această soluție pentru adăugarea mai multor atașamente la un e-mail din Excel VBA. Mulțumesc. Știu că mulți dintre noi beneficiem și apoi ne dorim un aspect personalizat pentru exact ceea ce încercăm să facem. Nu sunt diferit, dar pentru pasul 8. Putem stabili calea pe care Naviga fereastra se va deschide cu? Pot să răsfoiesc un alt folder într-o locație diferită, dar dacă aș putea seta calea, ar fi o economie de timp.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Buna,
Mi-aș dori să fiți la macro și aș fi trimis în un mismo correo a mai multe persoane sau mai multe și cu mai multe fișe sau mai multe.
Mulţumesc mult.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Is het ook mogelijk om een ​​filter te zetten op de selectie van de bijlagen, zodat er alleen pdf-bestanden aan de mail kunnen worden toegevoegd?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Alex de Graaf,
Codul apelează direct fereastra de selecție a fișierelor Microsoft. Acest lucru facilitează pentru utilizatorii VBA să selecteze fișierele necesare.
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Crystal,

Da, înțeleg asta. Cu toate acestea, vreau ca utilizatorii să poată selecta doar fișiere pdf.
Este posibil?
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Alex de Graaf,
Următorul cod VBA listează numai fișierele PDF în fereastra Răsfoire. Vă rugăm să încercați.

Private Sub CommandButton1_Click()
'Updated by Extendoffice 20220714
    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)
    xFileDlg.Filters.Add "PDF", "*.pdf", 1
xFileDlg.FilterIndex = 1
    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
Acest comentariu a fost redus la minimum de moderatorul de pe site
Salut Crystal,
Da, înțeleg asta. Cu toate acestea, este posibil să restricționați utilizatorii să selecteze doar fișiere pdf?
Acest comentariu a fost redus la minimum de moderatorul de pe site
أريد إرسال بريد إلكتروني مع البريد أو hotmail مع CDO ولكن كل ما لدي فقط مع مرفق واحد ولكن أريد أن أرسل مع العديد من المرفقات يرجى إرسال لي عن طريق بريدي الإلكتروني الرمز أو ملف Excel naims62@hotmail.com
Evaluat 5 din 5
Nu există comentarii postate aici încă
Lăsa comentarii
Postare ca invitat
×
Evaluează această postare:
0   Caractere
Locații sugerate

Urmărește-ne

Copyright © 2009 - www.extendoffice.com. | Toate drepturile rezervate. Cu sprijinul ExtendOffice. | Harta site-ului
Microsoft și sigla Office sunt mărci comerciale sau mărci comerciale înregistrate ale Microsoft Corporation în Statele Unite și / sau în alte țări.
Protejat de Sectigo SSL