Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
813 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【78152】メール送信 ａａａ 16/4/26(火) 14:04 質問[未読]
【78153】Re:メール送信 γ 16/4/27(水) 6:38 発言[未読]
【78154】Re:メール送信 ａａａ 16/4/27(水) 10:51 質問[未読]
【78160】Re:メール送信 γ 16/4/29(金) 8:34 発言[未読]
【78175】Re:メール送信 ａａａ 16/5/9(月) 11:10 質問[未読]
【78177】Re:メール送信 γ 16/5/14(土) 12:30 回答[未読]
【78152】メール送信
質問  ａａａ  - 16/4/26(火) 14:04 -
引用なし
パスワード
   一言ボタン一つで
メール送信を
したいのですが

ＣＤＯ作成して送るのできるのですが
プログラムが終了せず固まってしまいます
.sendコマンドの後です

何か、回避方法か
別の方法あれば、
ご教授お願いしたいのですが
よろしく　お願いします

Windows7　32bit　と64bit
Excel2013
【78153】Re:メール送信
発言  γ  - 16/4/27(水) 6:38 -
引用なし
パスワード
   コードを提示してみてはいかがですか？

CDOを使うと必ずそういう事象が発生するという話は聞いたことがありません。
回避する方法と言われても、仮にコードに問題がある場合、
どう問題があるのか誰にもわからないじゃないですか。
無茶なことを言っちゃいけませんよ。
【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以外でも
良い案があれば
よろしくお願いします
【78160】Re:メール送信
発言  γ  - 16/4/29(金) 8:34 -
引用なし
パスワード
   レスポンスする時間が取れずに失礼しました。

まず、エラー内容も示してもらうと
皆さんからの回答がつきやすいかもしれません。

私もトライしてみましたが、
当初はセキュリティ関連でエラーがでました。

ht tp://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub05_800_080.html#SEND_AUTH
の「送信認証を行なうメールサーバでの対応」を使い、
送信が確認できました。
（Outlookでは迷惑メール扱いになってはいましたが）
参考にしてください。
# エラー内容が違うかも知れないのでそのまま適用できるかは不明。

一番確実なのは、日頃から使っているメールソフト（例えばOutlook)を
VBAから動かすことかもしれませんね。
【78175】Re:メール送信
質問  ａａａ  - 16/5/9(月) 11:10 -
引用なし
パスワード
   γ さん：
error は　でなくて
実行が終わらない状態になります
【78177】Re:メール送信
回答  γ  - 16/5/14(土) 12:30 -
引用なし
パスワード
   ▼ａａａ さん：
>γ さん：
>error は　でなくて
>実行が終わらない状態になります
了解です。
しかし原因は私にはわかりません。メーカーではないので。

別のコードも引用し、私はこれで送信できましたと書いているのですが、
そちらは実行してみたのですか？
こちらの言うことも聞いてください。

また、常に使っているメールソフトは何ですか？
それを使ったマクロコードを探してみたのですか？
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
813 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free