Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

4205 / 76734

←次へ　｜　前へ→


	【78154】Re:メール送信

ａａａ - 16/4/27(水) 10:51 -


	引用なし

	パスワード

▼γ さん：
>コードを提示してみてはいかがですか？
>
>CDOを使うと必ずそういう事象が発生するという話は聞いたことがありません。
>回避する方法と言われても、仮にコードに問題がある場合、
>どう問題があるのか誰にもわからないじゃないですか。
>無茶なことを言っちゃいけませんよ。

自作も含め
何個か試したのですが

Sub sample()
　　Dim objCDO As New CDO.Message
　　With objCDO
　　　　With .Configuration.Fields '設定項目
　　　　　　 .Item(CdoConfiguration.cdoSMTPServer) = "***********" 'SMTPサーバ名
　　　　　　 .Item(CdoConfiguration.cdoSendUsingMethod) = CdoSendUsing.cdoSendUsingPort '外部SMTP指定
　　　　　　 .Item(CdoConfiguration.cdoSMTPServerPort) = 25 'ポートNo.
　　　　　　 .Item(CdoConfiguration.cdoSMTPConnectionTimeout) = 60 'タイムアウト
　　　　　　 .Item(CdoConfiguration.cdoLanguageCode) = CdoCharset.cdoShift_JIS '文字セット指定
　　　　　　 .Update '設定を更新
　　　　End With
　　　　 .MDNRequested = True '開封確認
　　　　 .MimeFormatted = True 'MIMEを使って書式設定
　　　　 .From = "*************************"
　　　　 .To = "***********************"
　　　　 .CC = ""
　　　　 .BCC = ""
　　　　 .Subject = "メール送信"
　　　　 .TextBody = "本文テスト"
　　　　 .TextBody = Replace(.TextBody, vbLf, vbCrLf)
　　　　 .TextBody = Replace(.TextBody, vbCr, vbCrLf)

　　End With
　　
　　objCDO.Send

　　Set objCDO = Nothing

End Sub

CDO以外でも
良い案があれば
よろしくお願いします

4 hits

▼

【78152】メール送信 ａａａ 16/4/26(火) 14:04