發送Email

Public Sub SendMail(Optional Address As String, _
Optional Subject As String, Optional Body As String, _
Optional CC As String, Optional BCC As String, Optional ATTACH As String)

Dim strCommand As String
'根據傳入的參數拼湊字串，各項目之間以 '&' 分開
If Len(Subject) Then strCommand = "&Subject=" & Subject '主旨
If Len(Body) Then strCommand = strCommand & "&Body=" & Body '內文
If Len(CC) Then strCommand = strCommand & "&CC=" & CC '副本
If Len(BCC) Then strCommand = strCommand & "&BCC=" & BCC '密件副本
'附加檔案之路徑必須包含前後的雙引號
'附加檔案在 Outlook 有效，在 Outlook Express 無效，其他電子郵件程式請自行測試
If Len(ATTACH) Then strCommand = strCommand & "&Attach=""" & ATTACH & """"
'拼湊出來的字串第一碼改成 '?'
If Len(strCommand) Then
Mid(strCommand, 1, 1) = "?"
End If
'在字串之前加上 "mailto:" 及 收件人地址
strCommand = "mailto:" & Address & strCommand
'執行 ShellExecute API
Call ShellExecute(Me.hWnd, "open", strCommand, vbNullString, vbNullString, 5)
End Sub