Excel VBA質問箱 IV

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

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


1088 / 13644 ツリー ←次へ | 前へ→

【76384】メール新規作成画面 CC欄へ表示 ゆき 14/11/12(水) 14:14 質問[未読]
【76385】Re:メール新規作成画面 CC欄へ表示 カリーニン 14/11/12(水) 19:32 発言[未読]
【76388】Re:メール新規作成画面 CC欄へ表示 ゆき 14/11/13(木) 9:41 お礼[未読]
【76386】Re:メール新規作成画面 CC欄へ表示 γ 14/11/12(水) 20:54 回答[未読]
【76387】Re:メール新規作成画面 CC欄へ表示 γ 14/11/12(水) 21:29 発言[未読]
【76389】Re:メール新規作成画面 CC欄へ表示 ゆき 14/11/13(木) 9:52 お礼[未読]

【76384】メール新規作成画面 CC欄へ表示
質問  ゆき  - 14/11/12(水) 14:14 -

引用なし
パスワード
   はじめまして。
VBA全くの初心者です。

現在下記のようなコードを使用し、申込ボタンをクリックすると
新規メール画面が立ち上がり、宛先欄にアドレスが表示され、
同時に件名も表示されている状態です。
これだと全部のアドレスが宛先欄に表示されているので、
CC欄にも表示させたい(例えばアドレス5.と6.)と思っているのですが、
方法がわかりません。
どなたか分かる方がいらっしゃいましたらお願いいたします。

ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー
Private Sub CommandButton1_Click()

Dim adr As String
  Const adr1 As String = "アドレス1."
  Const adr2 As String = "アドレス2."
  Const adr3 As String = "アドレス3."
  Const adr4 As String = "アドレス4."
  Const adr5 As String = "アドレス5."
  Const adr6 As String = "アドレス6."
    
  Application.Dialogs(xlDialogSendMail).Show Array(adr1, adr2, adr3, adr4, adr5, adr6), "切手・収入印紙申込"

End Sub
ーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーーー

【76385】Re:メール新規作成画面 CC欄へ表示
発言  カリーニン  - 14/11/12(水) 19:32 -

引用なし
パスワード
   メーラーは何ですか?

OUTLOOKならエクセルVBAやOUTLOOK VBAで制御できます。

また、CDOを使う、というてもあります。

ht tp://excel-ubara.com/excelvba4/EXCEL233.html

ちょっと古い記事のようですのでバージョン等は最近の
ものに置き換えて読んでください。
また、最近のバージョンで使えるかは私自身未検証です。

【76386】Re:メール新規作成画面 CC欄へ表示
回答  γ  - 14/11/12(水) 20:54 -

引用なし
パスワード
   xlDialogSendMailの引数は
recipients、subject、return_receipt
であるとヘルプに書かれているので、たぶんCC:はセットできないでしょう。

シートにハイパーリンクを張って、それをクリックしてはどうですか?
Sub test()
  ActiveSheet.Hyperlinks.Add _
  Anchor:=Selection, _
  Address:="mailto:aaa@xxx.xx.xx&;cc=bbb@xxx.xx.xx&;Subject=title&body=本文", _
  TextToDisplay:="セルに表示する文字列"
End Sub
こうしておけば、固定の相手への定期的なメールには使えます。
ただし添付ファイルを自動でつけることはできませんが。

本格的にするなら、既にご指摘のとおりの手法がありますが、
まったくの初心者なら、OutlookとかCDOとかの操作は、もっと先の課題でしょう。

# 情報提供になんら異論を挟むつもりはありませんし、
#「まったくの初心者」などというのは幅のある言葉と承知していますが。

【76387】Re:メール新規作成画面 CC欄へ表示
発言  γ  - 14/11/12(水) 21:29 -

引用なし
パスワード
   なにか、アンパサンドの次にセミコロンが入る仕様のようですが、
セミコロンは不要です。脳内変換して下さい。

【76388】Re:メール新規作成画面 CC欄へ表示
お礼  ゆき  - 14/11/13(木) 9:41 -

引用なし
パスワード
   ▼カリーニン さん:
サイトを教えていただきありがとうございました。
勉強しながらやってみたいと思います。


>メーラーは何ですか?
>
>OUTLOOKならエクセルVBAやOUTLOOK VBAで制御できます。
>
>また、CDOを使う、というてもあります。
>
>ht tp://excel-ubara.com/excelvba4/EXCEL233.html
>
>ちょっと古い記事のようですのでバージョン等は最近の
>ものに置き換えて読んでください。
>また、最近のバージョンで使えるかは私自身未検証です。

【76389】Re:メール新規作成画面 CC欄へ表示
お礼  ゆき  - 14/11/13(木) 9:52 -

引用なし
パスワード
   ▼γ さん:
どうもありがとうがとうございました。
こちらもやってみようと思います。
ほんとに初心者なので一つ一つ勉強です。


>xlDialogSendMailの引数は
>recipients、subject、return_receipt
>であるとヘルプに書かれているので、たぶんCC:はセットできないでしょう。
>
>シートにハイパーリンクを張って、それをクリックしてはどうですか?
>Sub test()
>  ActiveSheet.Hyperlinks.Add _
>  Anchor:=Selection, _
>  Address:="mailto:aaa@xxx.xx.xx&;cc=bbb@xxx.xx.xx&;Subject=title&body=本文", _
>  TextToDisplay:="セルに表示する文字列"
>End Sub
>こうしておけば、固定の相手への定期的なメールには使えます。
>ただし添付ファイルを自動でつけることはできませんが。
>
>本格的にするなら、既にご指摘のとおりの手法がありますが、
>まったくの初心者なら、OutlookとかCDOとかの操作は、もっと先の課題でしょう。
>
># 情報提供になんら異論を挟むつもりはありませんし、
>#「まったくの初心者」などというのは幅のある言葉と承知していますが。

1088 / 13644 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free