經常發面試郵件，通常只是修改一下收件人郵箱地址，和收件人姓名，其他全部一致，有木有發現每次都用用outlook寫郵件很麻煩？
使用宏發郵件，就會不麻煩了，直接修改下稱呼，修改下收件人地址，按下F5，就可以直接發送了。
Private Sub send_mail()
'新建郵件
Set OutApp = CreateObject("Outlook.Application") '創建outlook對象
OutApp.Session.Logon '登錄MAPI
Set outmail = OutApp.CreateItem(olMailItem) '新建郵件對象
Dim strTo, strCC, strSubject, strName
strTo = "aaa@bbb.com.cn"
strCC = "aaa@bbb.com.cn"
strName = "面試人"
strSubject = "我公司面試邀請-" & strName
If strName = "" Then
MsgBox "收件人名稱不能為空哦"
Exit Sub
End If
If MsgBox("確認要發送郵件?" & vbCrLf & "title:" & strSubject & vbCrLf & "to:" & strTo & vbCrLf & "cc:" & strCC, vbYesNo) = vbNo Then
Exit Sub
End If
strContent = strName & ",您好," & vbCrLf
strContent = strContent & " 很高興邀請您參加我司Java工程師面試!" & vbCrLf
strContent = strContent & " 地點: XXX" & vbCrLf
strContent = strContent & " 乘車路線：XXX" & vbCrLf
strContent = strContent & " 請注意：XX。" & vbCrLf
strContent = strContent & " 到達后請聯系:" & vbCrLf
strContent = strContent & " AAA：010 ######## 分機：" & vbCrLf
strContent = strContent & " CBD：133CXXXXXX" & vbCrLf
strContent = strContent & "如有變化，請提前告知，謝謝！" & vbCrLf & vbCrLf
'簽名信息
strContent = strContent & "________________________________________" & vbCrLf
strContent = strContent & "Best regards!" & vbCrLf
strContent = strContent & "XXXX" & vbCrLf
'設置郵件標題、收件人、等等
With outmail
.To = strTo '收件人
.CC = strCC '抄送
.BCC = ""
.Subject = strSubject '主題
.Body = strContent
End With
outmail.Send
MsgBox "郵件-" & strSubject & "已經發送至" & strTo & ",抄送至" & strCC
End Sub
如果發送時提示“有人正在試圖以您的名義發送郵件。。。。。”修改一下安全性：
