[[20160712205835]]　『列に名前入れて新規メール立ち上げマクロ』（明日雨）　ページの最後に飛ぶ

『列に名前入れて新規メール立ち上げマクロ』（明日雨）

シート名宛先
B3からB40
D3からD40
F3からF40
にアウトルックに登録している名前を記入してます
B列に対してA列に
D列に対してC列に
F列に対してE列に
宛先もしくはCCと記入してます。
宛先に設定されている人は宛先にCCと設定されている人はCCになるように
新規メールが立ち上がるマクロが欲しいです
アウトルックは2013もしくは2010です
何か良いマクロ教えて貰えないですか

＜使用 Excel：Excel2013、使用 OS：Windows8 ＞

 作りたいのではなく欲しいだけですか？
（くれくれ君） 2016/07/12(火) 21:26

作りたいです。
すみません追記ですが
名前は空白もあります
アウトルックなので名前と名前の間に;が必要です

 （明日雨） 2016/07/12(火) 21:49

 ↓は参考にならないだろうか。

[[20130731144645]]　『メール作成について』（あん）

 Mookさんがリンクされてるところも参考に。
（くれくれ君） 2016/07/12(火) 22:26

なかなか難しいんですかね

 （明日雨） 2016/07/13(水) 22:11

これできないっすか

 （明日雨） 2016/07/21(木) 23:17

「vba cdo」で検索。

（とおりすがり） 2016/07/22(金) 09:27

 自分で作りたいということであればどこまでできていてどこで躓いているかを説明したほうがいいかと。
（ねむねむ） 2016/07/22(金) 10:21

 失礼します。言葉尻をとらえて恐縮ですが、

 >>なかなか難しいんですかね

 疑問文でレスしておられますが、紹介されたURLを参照して取り組んでみた。
 でも、このところが、うまくいかない。　あるいは　この部分に意味がよくわからない。
 こういうことであれば、

 【がんばっているけど、なかなか難しいですね】という表現になりますねぇ。
 で、具体的に、ここはどういうようにしたらいいかと、ピンポイントで具体的なテーマで質問するという流れになると思いますが？

 >>これできないっすか

 できると思って皆さん、参考のURLあるいは検索語を紹介しておられるんですよ。

 ★そうではなく、自分で調べて頑張るつもりはない。そのまま動かしてOKになるコードをアップしてほしいということであれば
 　はっきりと、そう書かれたらよろしいかと。

 　それに対して、回答コードがアップされるかどうかはわかりませんが。

 　今のままだと、きっと、ある程度がんばっておられて、でも、どこかで躓いているのかな？
 　その躓いているところを教えてもらえればお手伝いもできるなと　回答側は、そう思って待ち続ける状況から
 　その先に進まないような気がします。

（β） 2016/07/22(金) 11:39

あーわかりました
出来ないということですね

 （明日雨） 2016/07/24(日) 00:00

 やる気のある人には出来、無い人には出来ない、ただそれだけのことです。
 あなたはひっくり返ってもできないです。
（今日晴） 2016/07/24(日) 01:02

はいはい出来ないって事ね
まぁ明日にはこれ消すから
出来ないなら書き込むな暇人どもが

 （明日雨） 2016/07/24(日) 02:22

 「vba cdo」で検索した、比較的わかりやすいページです。

http://serialty.blog117.fc2.com/blog-entry-10.html

（とおりすがり） 2016/07/24(日) 20:21

Sub main()

    Dim atesaki As String, cc As String, c As Range
    For Each c In ActiveSheet.Range("A3:A40,C3:C40,E3:E40")
        If c.Value = "宛先" Then
        atesaki = atesaki & ";" & c.Offset(, 1).Value
        ElseIf c.Value = "CC" Then
        cc = cc & ";" & c.Offset(, 1).Value
        End If
    Next c
    On Error GoTo ere
    Dim oapp, objitem
    Set oapp = GetObject(, "Outlook.Application")
    If oapp Is Nothing Then Set oapp = CreateObject("Outlook.Application")
    Set objitem = oapp.CreateItem(0)
        With objitem
        .Subject = "件名"
        .To = Mid(atesaki, 2)
        .cc = Mid(cc, 2)
        .Body = "本文"
        .Display
        End With
    Exit Sub
ere:
    MsgBox "Outlookを立ち上げてから再実行してください"
End Sub

（mm） 2016/07/25(月) 16:40

削除

 （明日雨） 2016/07/28(木) 22:05

test
（kazu） 2016/07/30(土) 17:02

このコンテンツは全体削除を繰り返され、凍結されました。
（kazu） 2016/07/30(土) 17:07

コメント返信：

[[20160712205835]] 『列に名前入れて新規メール立ち上げマクロ』（明日雨） ページの最後に飛ぶ

[[20160712205835]]　『列に名前入れて新規メール立ち上げマクロ』（明日雨）　ページの最後に飛ぶ