新規メールウインドウを開く方法

解決


しげちお  2005-06-18 11:06:58  No: 122772

System.Diagnostics.Process.Start("mailto:a!a!a@vb.net")

このようにすると送信先メールアドレスが入った新規メールウインドウが
開くのですが、この時に、件名、本文に文字を入れて開きたいのですが、
どのような方法があるでしょうか?
それから、もし可能ならば、自分(送信元)のメールアドレスを
メールソフトの既定以外に設定する方法があったらそれも教えて頂きたいです。

環境はVB.NET+WindowXP+Outlook2002でございます。

過去の記事や他のサイトを調べてみたのですが、VB6.0関係はいくつか見つかったのですが、.NETに関するものを見つけることができませんでした。
すみませんが、手がかりだけでも良いので教えて頂けると助かります。


しげちお  2005-06-18 11:29:10  No: 122773

http://anetm.com/dev/tools/vbdotnet/112227.htm

↑のサイトで、参考になるプログラムを見つけたのですが、
Imports System.Web.Mail
の部分に波線が付いてしまい、「名前空間か型「mail」が見つかりません」と出てしまいます。

あと、Button1_Clickプロシージャの中のSystem.Web.Mail部分にも波線が付いてしまいます。
「Imports System.Web.Mail」は一番上に書いてあります。

何かお気づきの点がありましたら、教えていただけないでしょうか。
よろしくお願いいたします。


しげちお  2005-06-18 12:05:31  No: 122774

度々すみません(><)
「プロジェクト」→「参照の追加」でSystem.Web.dll選ぶのをやっていませんでした。

これをやったら波線が消えたのですが、
System.Web.Mail.SmtpMail.Send(MyMail)
この行で
--------
'System.Web.HttpException' のハンドルされていない例外が system.web.dll で発生しました。
追加情報 : Could not access 'CDO.Message' object.
--------
というエラーがでてしまいました。

あと、前回までに教えて頂いた、部分なのですが、
-------------------------
'現在起動中の InternetExplorer を列挙する
    Dim Shell As Object = CreateObject("Shell.Application")
    Dim Windows As Object = CallByName(Shell, "Windows", CallType.Method)
    For I As Integer = 0 To CInt(CallByName(Windows, "Count", CallType.Get)) - 1
      Dim Exp As Object = CallByName(Windows, "Item", CallType.Get, I)
      Dim Doc As Object = CallByName(Exp, "Document", CallType.Get)
-------------------------
の部分の最後の行で
------
'System.Runtime.InteropServices.COMException' のハンドルされていない例外が microsoft.visualbasic.dll で発生しました。
追加情報 : エラーを特定できません
------
というエラーがでるようになってしまいました。
正常に動作して以来、この部分には特に変更は加えていないのですが、
先の操作が影響しているのでしょうか?
原因がわかりましたら教えて頂けると助かります。


しげちお  2005-06-18 12:19:37  No: 122775

For IのIの値が0の時でもエラーになってしまいます。


しげちお  2005-06-18 12:39:58  No: 122776

「あと、前回までに教えて頂いた、部分なのですが、」・・・・・
以降の不具合はWindowsを再起動したら直りましたので、
前半の新規メールウインドウのエラーの件について
教えて頂きたくお願い致します。

質問文がごちゃごちゃになってすみません。


通ってみた  2005-06-18 18:58:19  No: 122777

>>'System.Runtime.InteropServices.COMException' のハンドルされていない例外が microsoft.visualbasic.dll で発生しました。

ヘルプなりでよく中身を調べて理解すれば解決するかと

>>For IのIの値が0の時でもエラーになってしまいます。

1からはじめればいいかと


しげちお  2005-06-20 06:29:10  No: 122778

通ってみたさん回答ありがとうございます!
ちょっと調べてみることにします。
ありがとうございました!!


※返信する前に利用規約をご確認ください。




  


  このエントリーをはてなブックマークに追加