国产一区二区欧美精品免费-欧美国产日韩在线视频-欧美亚洲国语精品一区二区-欧美激情五月综合啪啪-国产69精品麻豆久久久久-亚洲人成精品久久久久桥网站-欧美刺激肥熟在线视频-十七岁日本免费完整版BD-黑夜在线拖拽不卡第一页

    ' 設(shè)置收件人和抄送人
        objMessage.To = RecipientEmail
        objMessage.CC = CCRecipientEmail
        
        ' 設(shè)置主題、姓名和正文
        objMessage.Subject = MailSubject
        objMessage.TextBody = "Dear " & Name & "," & vbCrLf & vbCrLf & MailBody
        
        ' 添加附件
        If AttachmentPath <> "" Then
            objMessage.AddAttachment AttachmentPath
        End If
        
        ' 將郵件保存到草稿箱
        objMessage.Fields.Item("urn:schemas:httpmail:saveas") = 2
        objMessage.Fields.Update
        
        ' 發(fā)送郵件
        objMessage.Send
        
        ' 釋放對(duì)象
        Set objMessage = Nothing
    Next i
    
    MsgBox "郵件已保存到草稿箱。"

End Sub

哪位大神幫我看看，如上標(biāo)黃色的部分出錯(cuò)，怎么修正，謝謝