新規メールウインドウを開く方法
解決System.Diagnostics.Process.Start("mailto:a!a!a@vb.net")
このようにすると送信先メールアドレスが入った新規メールウインドウが
開くのですが、この時に、件名、本文に文字を入れて開きたいのですが、
どのような方法があるでしょうか？
それから、もし可能ならば、自分（送信元）のメールアドレスを
メールソフトの既定以外に設定する方法があったらそれも教えて頂きたいです。
環境はＶＢ．ＮＥＴ＋ＷｉｎｄｏｗＸＰ＋Ｏｕｔｌｏｏｋ２００２でございます。
過去の記事や他のサイトを調べてみたのですが、ＶＢ６．０関係はいくつか見つかったのですが、．ＮＥＴに関するものを見つけることができませんでした。
すみませんが、手がかりだけでも良いので教えて頂けると助かります。
http://anetm.com/dev/tools/vbdotnet/112227.htm
↑のサイトで、参考になるプログラムを見つけたのですが、
Imports System.Web.Mail
の部分に波線が付いてしまい、「名前空間か型「mail」が見つかりません」と出てしまいます。
あと、Button1_Clickプロシージャの中のSystem.Web.Mail部分にも波線が付いてしまいます。
「Imports System.Web.Mail」は一番上に書いてあります。
何かお気づきの点がありましたら、教えていただけないでしょうか。
よろしくお願いいたします。
度々すみません（＞＜）
「プロジェクト」→「参照の追加」で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 で発生しました。
追加情報 : エラーを特定できません
------
というエラーがでるようになってしまいました。
正常に動作して以来、この部分には特に変更は加えていないのですが、
先の操作が影響しているのでしょうか？
原因がわかりましたら教えて頂けると助かります。
For IのＩの値が０の時でもエラーになってしまいます。
「あと、前回までに教えて頂いた、部分なのですが、」・・・・・
以降の不具合はＷｉｎｄｏｗｓを再起動したら直りましたので、
前半の新規メールウインドウのエラーの件について
教えて頂きたくお願い致します。
質問文がごちゃごちゃになってすみません。
？
>>'System.Runtime.InteropServices.COMException' のハンドルされていない例外が microsoft.visualbasic.dll で発生しました。
ヘルプなりでよく中身を調べて理解すれば解決するかと
>>For IのＩの値が０の時でもエラーになってしまいます。
１からはじめればいいかと
通ってみたさん回答ありがとうございます！
ちょっと調べてみることにします。
ありがとうございました！！
| ツイート |  |