現在一直在使用 VBA。我想知道，當您在 VBA 中使用用戶表單發送電子郵件時。是否有條件添加附件的選項？
假設如果選中復選框 1 和 2，則 IMG1 顯示在附件中，如果選中復選框 3，則在電子郵件中添加 IMG2。如果選中復選框 1,2 和 3，則兩個 IMG 都將附加在電子郵件中？
如果您想根據復選框的相同值嵌入影像？有沒有一種有效的方法來編碼？
提前致謝。我來這里是為了更多地了解 VBA 的可能性并自動化一些日常流程。
Private Sub CommandButton1_Click()
Dim AppOutlook As Outlook.application
Dim Mailtje As Outlook.MailItem
Dim strbody As String
Set AppOutlook = CreateObject("Outlook.Application")
Set Mailtje = AppOutlook.CreateItem(olMailItem)
Mailtje.Display
Mailtje.To = TextBox1.Value
Mailtje.CC = TextBox2.Value
Mailtje.Subject = "Test" & Format(Date, "dd/mm/yy")
Mailtje.HTMLBody = strbody
.Attachments.Add = IMG1.jpg
End Sub
uj5u.com熱心網友回復：
像這樣的東西：
If checkbox1.Value And checkbox2.Value Then
Mailtje.Attachments.Add "C:\Test\Pic1.jpg" 'use the full path
End If
If checkbox3.Value Then
Mailtje.Attachments.Add "C:\Test\Pic2.jpg"
End If
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/408252.html
標籤：