Как да изпратите имейл с множество прикачени файлове в Excel?
Тази статия говори за изпращане на имейл през Outlook с множество прикачени файлове в Excel.
Изпратете имейл с множество прикачени файлове в Excel с VBA код
Изпратете имейл с множество прикачени файлове в Excel с VBA код
Моля, направете следното, за да изпратите имейл с множество прикачени файлове в Excel.
1. Моля, въведете команден бутон, като щракнете Софтуерен Инженер > Поставете > Команден бутон (ActiveX Control). Вижте екранна снимка:
2. След като поставите командния бутон, щракнете с десния бутон върху него и изберете Преглед на кода от контекстното меню.
3. В откриването Microsoft Visual Basic за приложения прозорец, моля щракнете Инструменти > Препратки както е показано на екранната снимка по-долу.
4. В Препратки – VBAProject диалогов прозорец, моля, намерете и проверете Обектна библиотека на Microsoft Outlook опция и след това щракнете върху OK бутон.
5. След това заменете оригиналния код в прозореца на кода с по-долу VBA код.
VBA код: Изпратете имейл, прикачен с множество прикачени файлове в 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 Sub
Забележка: моля, посочете своя имейл получател, тема и текст, като промените варианта в .До = , .Subject = "тест" намлява .HTMLBody = "тест" редове в кода.
6. Натисни Друг + Q клавишите заедно, за да излезете от Microsoft Visual Basic за приложения прозорец.
7. кликване Софтуерен Инженер > Режим на проектиране за да изключите режима на проектиране. Вижте екранна снимка:
8. Щракнете върху командния бутон, за да изпълните кода. В изскачащите паса прозорец, изберете файловете, които трябва да прикачите в имейла, и след това щракнете върху OK бутон. Вижте екранна снимка:
9. След това се създава имейл с посочени полета и прикачени файлове. Моля, щракнете върху Изпрати бутон, за да го изпратите. Вижте екранна снимка:
Забележка: VBA кодът работи само когато използвате Outlook като своя имейл програма.
Изпратете лесно имейл през Outlook въз основа на полета от създаден пощенски списък в Excel:
- Изпращане на имейли полезност на Kutools за Excel помага на потребителите да изпращат имейли през Outlook въз основа на създаден пощенски списък в Excel.
Изтеглете и опитайте сега! (30-дневна безплатна пътека)
Още по темата:
- Как да изпратите имейл до имейл адреси, посочени в клетки в Excel?
- Как да изпратите имейл с копиране и поставяне на определен диапазон в тялото на имейл в Excel?
- Как да вмъкна подпис в имейл на Outlook при изпращане от vba в Excel?
- Как да изпратите имейл, ако срокът е спазен в Excel?
- Как автоматично да изпращате имейл въз основа на стойността на клетката в Excel?
Най-добрите инструменти за продуктивност в офиса
Усъвършенствайте уменията си за Excel с Kutools за Excel и изпитайте ефективност, както никога досега. Kutools за Excel предлага над 300 разширени функции за повишаване на производителността и спестяване на време. Щракнете тук, за да получите функцията, от която се нуждаете най-много...
Раздел Office Внася интерфейс с раздели в Office и прави работата ви много по-лесна
- Разрешете редактиране и четене с раздели в Word, Excel, PowerPoint, Publisher, Access, Visio и Project.
- Отваряйте и създавайте множество документи в нови раздели на един и същ прозорец, а не в нови прозорци.
- Увеличава вашата производителност с 50% и намалява стотици кликвания на мишката за вас всеки ден!