OKWAVEのAI「あい」が美容・健康の悩みに最適な回答をご提案!
-PR-
解決
済み

テキストボックスの内容をOutlook Expressの新規作成に貼り付ける方法は?

  • 困ってます
  • 質問No.223163
  • 閲覧数409
  • ありがとう数2
  • 気になる数0
  • 回答数1
  • コメント数0

お礼率 67% (55/82)

テキストボックスに入力されたデータをコマンドボタンクリック一発でOutlook Expressの新規作成メールの本文部分にコピーする方法はありますか?また、入力した宛先アドレスを同じようにOutlook Expressの新規メールの宛先部分に貼り付ける方法もあるのでしょうか?教えてください!!!
通報する
  • 回答数1
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

質問者が選んだベストアンサー

  • 回答No.1
レベル12

ベストアンサー率 65% (276/422)

>Outlook Expressの新規作成メールの本文部分
Outlook Express限定とするわけではないですが・・・

各ユーザー毎に使用するメーラーは違うはずです。
サンプルはそれぞれの環境で、標準で使用するメーラーを
※メルアド
※タイトル
※本文
を入力された状態で起動します。

標準で使用するメーラーは、
[インターネットのプロパティ]→[プログラム]→[電子メール]項目にて設定します。
この項目はレジストリの
HKEY_LOCAL_MACHINE\SOFTWARE\Classes\mailto\shell\open\command
に登録されています。
どうしても「Outlook Express限定」とするのであれば、ここの情報をPGで変更してあげる必要があります。
レジストリ操作については参考URLを見てください。

Option Explicit
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
Private Const SW_SHOWNORMAL = 1

Private Sub Command1_Click()
  Dim lngSts As Long
  
  lngSts = ShellExecute(Me.hwnd, "open", _
           "mailto:****@hoge.com?subject=(゜ .゜)ノ ヤホ&body=(-ロ-; グハッ", _
           vbNullChar, vbNullChar, SW_SHOWNORMAL)
End Sub
お礼コメント
fujiyama2002

お礼率 67% (55/82)

詳しい説明をありがとうございました。早速試してみました。
投稿日時 - 2002-02-26 20:29:10
-PR-
-PR-
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ