tagCANDY CGI VBレスキュー(花ちゃん) - Htmlメール送信及び添付ファイルを付けて送信(VB6.0) - Visual Basic 6.0 VB2005 VB2010
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ
Htmlメール送信及び添付ファイルを付けて送信(VB6.0)
元に戻る スレッド一覧へ 記事閲覧
このページ内の検索ができます。(AND 検索や OR 検索のような複数のキーワードによる検索はできません。)

Htmlメール送信及び添付ファイルを付けて送信(VB6.0) [No.259の個別表示]
     サンプル投稿用掲示板  VB2005 〜 用トップページ  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><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
メンテ

Page: 1 |

 投稿フォーム               スレッド一覧へ
題  名 スレッドをトップへソート
名  前
パスワード (記事メンテ時に使用)
投稿キー (投稿時 投稿キー を入力してください)
コメント

   クッキー保存   
スレッド一覧へ