VBレスキュー(花ちゃん) - Htmlメール送信及び添付ファイルを付けて送信(VB6.0)

日時： 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>これは"
 strTextBody = strTextBody & "テストメール"
 strTextBody = strTextBody & "です。</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

Page: 1 |

　投稿フォーム　　　　　　　　　　　　　　　スレッド一覧へ

題　　名	スレッドをトップへソート
名　　前
パスワード	（記事メンテ時に使用）
投稿キー	（投稿時を入力してください）
コメント	*********************************************************************************** * カテゴリー：[][][] * キーワード： , , , , , ***********************************************************************************
	クッキー保存

スレッド一覧へ