プロが教えるわが家の防犯対策術!

以下のようなVBAで、ボタンを押すと、指定したアドレスにファイルが添付されるようにしました。
大抵のパソコンからは送れるのですが、たまにエラーで
「実行時エラー'1004'
'send Mail メソッドは失敗しました。'_Workbook'オブジェクト」
と言うのがでて送れなかったと報告を受けます。
4行目が黄色くなっているそうなのですが、使用するパソコンの設定か何かで送れないことがあるのでしょうか?
それとも、そもそも根本的に違っているのでしょうか?
よろしくお願いします。

Sub SendMail()
Dim strAddress As String
strAddress = "ここは送付先のアドレス"
ActiveWorkbook.SendMail Recipients:=strAddress
Range("J1:K6,K11:K25").Select
Range("K11").Activate
Selection.ClearContents
End Sub

A 回答 (2件)

>どのパソコンからも送れるように設定することはできるのでしょうか?



SMTPサービス コンポーネントをインストールすれば可能ですが、インストールしない場合は、SMTPサーバを指定しないといけないので難しいのではないかと思います。

参考URL:http://www.atmarkit.co.jp/fwin2k/win2ktips/428ws …
    • good
    • 0

おそらく Outlook を使用していないからではないでしょうか。

この回答への補足

ありがとうございます。
どうやらそのようです。
どのパソコンからも送れるように設定することはできるのでしょうか?

補足日時:2008/06/17 07:58
    • good
    • 0

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!