By 羅寧2020 14 年 2023 月 XNUMX 日,星期二
張貼在 Excel
回复 0
0
觀看 2.1K
投票 0
我是 VBA 的新手。 當單元格 K 輸入“是”時,我希望發送電子郵件……我已經做到了這一點,但在下一步中苦苦掙扎。

我希望電子郵件正文如下所示:

您好,下面是項目提案摘要。

項目名稱:*來自單元格 A 的信息*
描述:*單元格 B*
解決方案:*單元格C*
好處:*單元格D*
費用:*單元格 F*
時間:小區*G*
風險:單元格 *H*
客戶:Cell I
品牌:Cell J

親切的問候,

*單元格L*


以下是我到目前為止使用的代碼:


Private Sub Worksheet_Change(ByVal Target As Range)
如果 Target.Cells.Count > 1 然後退出 Sub
If (Not Intersect(Target, Range("K:K")) Is Nothing) And (Target.Value = "Yes") 然後
致電 Mail_small_Text_Outlook
如果結束
END SUB
子 Mail_small_Text_Outlook()
將 xOutApp 調暗為對象
將 xOutMail 調暗為對象
將 xMailBody 調暗為字符串
設置 xOutApp = CreateObject("Outlook.Application")
設置 xOutMail = xOutApp.CreateItem(0)
xMailBody = "你好" & vbNewLine & vbNewLine & _
“這是第 1 行” & vbNewLine & _
“這是第 2 行”
在錯誤恢復下一頁
使用 xOutMail
.To = "電子郵件地址"
.CC =“”
.BCC =“”
.Subject =“通過單元格值測試發送”
.Body = xMailBody
.Display '或使用 .Send
結束
在錯誤轉到0
設置 xOutMail = 無
設置 xOutApp = 無
END SUB

預先感謝任何可以幫助我的人。
查看全文