Sub Send_Email()
將I標註為整數
Dim MyOutlookApp作為Outlook。應用
將我的文件夾調暗為Outlook。MAPIFolder
將我的新郵件調暗為Outlook。郵件項目
將附件作為outlook。附件的附件。
Set MyOutlookApp =新Outlook。應用
設置我的文件夾= myoutlookapp。getnamespace ("MAPI ")。getDefaultFolder (Olfolderinbox)。文件夾(“我的郵件文件夾”)。
設置MyNewMail = MyOutlookApp。CreateItem(olMailItem)
用我的新郵件
。收件人= "YourFridentMail@sina.com”的目的地電子郵件地址。
。Cc="aaa@qq.com "
。Subject = "test " '標題
。HTMLBody = " & ltp & gt& ltb & gt這& lt/b & gt；is & ltfont color = ' # ff000 ' & gt紅色& lt/font & gt；& lt/p >；
。AlternateRecipientAllowed = True '此消息可以被轉發。
。' AutoForwarded = True '此郵件允許自動轉發。
。' DeleteAfterSubmit = False '發送後保留壹份副本。
發送後移至指定文件夾。
。savesentmessagefolder = myoutlookapp。getnamespace ("MAPI ")。getDefaultfolder (Olfolderinbox)。文件夾(“備份文件夾”)。
。“ReadReceiptRequested = True”要求收件人提供收據。
SaveSentMessageFolder
以…結尾
附件
設置MyAttachments = MyNewMail。附件
我的附件。添加“c:\win\abc.txt”，olByValue
我的新郵件。保存保存
我的新郵件。發送'發送
我的文件夾。“顯示”顯示office outlook。
末端接頭