- 日時： 2011/04/01 11:55
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[通信][インターネット][] *
* キーワード：メール,送信,受信,E-Mail,Microsoft CDO for Windows 2000 Library *
***********************************************************************************
タイトル ： Htmlメール送信
記 事 No ： 14500
投 稿 日 ： 2010/02/27(Sat) 18:27
元質問者 ： サイトウ
HTMLメールでの送信に迫られ、試行錯誤したのですが、
皆目その方法がわからず困っております。出来るだけ簡単なプロセスで
HTMLメールを送信する方法は無いでしょうか。
---------------------------------------------------------------------------------
タイトル ： Re^7: Htmlメール送信
記 事 No ： 14530
投 稿 日 ： 2010/03/08(Mon) 20:03
回 答 者 ： 花ちゃん
---------------------------------------------------------------------------------
エラー処理等は、動作確認後に設定しておいて下さい。
参照設定でMicroSoft CDO For Exchange 2000 Library にチェックを入れておいて下さい。
Option Explicit
Private Sub Command1_Click()
Dim objEmail As New CDO.Message
Dim strTextBody As String
Dim strTmpFile As String ' "c:\test1.txt;c:\test2.txt"
strTextBody = "<HTML><BODY><P><B><FONT color=""#0000ff"">これは</FONT>"
strTextBody = strTextBody & "<FONT color=""#ff0000"">テストメール</FONT>"
strTextBody = strTextBody & "<FONT color=""#00ff00"">です。</FONT></B></P></BODY></HTML>"
With objEmail
'サーバーより、エラーが発生するようならコメント部分を外してテストして見て下さい。
' .Configuration.Fields.Item(cdoSendUsingMethod) = 2 ' cdoSendUsingPort
' .Configuration.Fields.Item(cdoSMTPServer) ="*****.co.jp" 'SMTPサーバ名(又はIPアドレス)
' .Configuration.Fields.Item(cdoSMTPServerPort) = 25 ' ポート№
' .Configuration.Fields.Item(cdoSMTPConnectionTimeout) = 60 ' タイムアウト
.Configuration.Fields.Item(cdoSMTPAuthenticate) = 0
.Configuration.Fields.Update
.To = "送信先アドレス"
.From = "送信元アドレス"
.Subject = "テストメールを送信"
.HTMLBody = strTextBody
If Len(strTmpFile) Then '添付ファイルがあれば
.AddAttachment (strTmpFile) '添付ファイルのパス
End If
.Send
End With
Set objEmail = Nothing
MsgBox "送信できました"
End Sub
|
Htmlメール送信及び添付ファイルを付けて送信(VB6.0)