VBA自动发送邮件

最新推荐文章于 2024-07-06 15:12:30 发布

HuIsNotWu

最新推荐文章于 2024-07-06 15:12:30 发布

阅读量2.8k

点赞数 1

本文链接：https://blog.csdn.net/HuIsNotWu/article/details/47041237

版权

Sub sendMailforCheck()
    Dim Subj As String
    Dim EmailAddr As String, Emailcc As String
    Dim msg As String
    Dim attachFileName As String
    Dim dayMark As String, qjdDeliverNo As String
    
'    qjdDeliverNo = ActiveWorkbook.ActiveSheet.Range("J17").Value
    qjdDeliverNo = Evaluate("'C:\Users\huyg\Desktop\[操作.xlsm]日周报'!$J$17")
    
    dayMark = InputBox("请输入日期标识符,格式如:20150808", , Format(Date - 1, "YYYYMMDD"))
    
    Subj = "forcheck" & dayMark & "及配送量"
    EmailAddr = "*************"
    Emailcc = "******************"
    msg = "Hi，All <br /><br />"
    msg = msg & "forcheck" & dayMark & ",请查收"
    msg = msg & "<br />" & dayMark & "量为:<font color='red'>" & qjdDeliverNo & "</font>"
    attachFil