[[20080619103017]]　『マクロで“Outlook Express”を使用してエクセル刀x（マキ）　ページの最後に飛ぶ

『マクロで“Outlook Express”を使用してエクセル添付メール送信したい』（マキ）

 いつもお世話になっております。
 現在社内でのOutlook使用者が減少している為、Outlookでメール送信しているマクロを、
 “Outlook Express”へと切替を行いたいのですが、どうしても現在組まれているマクロから
 “Outlook Express”への切替が出来ません。
 どなたかお知恵を貸して頂けませんでしょうか？

・エクセルのバージョン：Excel2000
・OSのバージョン：WindowsXP

★マクロの内容

 =====================
'メールの宛先･挨拶文

    Sheets("送信先").Select
Sname = ActiveCell.Offset(0, 0).Range("B1")
Email = ActiveCell.Offset(0, 0).Range("C1")
'Email2 = ActiveCell.Offset(0, 0).Range("D1")
Aisatu = ActiveCell.Offset(0, 0).Range("E1")

    Set myOlApp = CreateObject("Outlook.Application")
    Set myNamespace = myOlApp.GetNamespace("MAPI")
    Set myItem = myOlApp.CreateItem(0)      'olMailItem

    myItem.To = Email                                     'メールアドレス
'   myItem.CC = "xxx1@yyy.zzz"                            '宛先(CC)
'   myItem.BCC = Email2                                   '宛先(BCC)
    myItem.Subject = Sname & "御中"                              '宛名
    myItem.Body = Aisatu '挨拶文
'メールアドレスの指定

    myItem.Attachments.Add ("\\000.000.0.000\管理t\関連\mail\" & Kcode & "" & "_" & "" & FNAME & ".xls") '添付ファイル

' メールを送信する

    myItem.Send

    myOlApp.Quit
    Set myItem = Nothing
    Set myNamespace = Nothing
    Set myOlApp = Nothing

End Sub

 =================

★送信先シートの内容

 ===============================================================
  ｜　A　｜　　B　　｜ 　 C　　｜　D　｜　　　  　E 　　　　　｜　
 1｜識別 ｜　宛名　 ｜ アドレス｜ BCC ｜　　　　挨拶文　　　　｜
 2｜sap　｜確認の件 ｜   ～.jp ｜　 　｜データをお送りします。｜
 3｜sen　｜確認の件 ｜   ～.jp ｜　 　｜データをお送りします。｜
 4｜ngy　｜確認の件 ｜   ～.jp ｜　 　｜データをお送りします。｜
 5｜osk　｜確認の件 ｜   ～.jp ｜　 　｜データをお送りします。｜
 6｜ksy　｜確認の件 ｜   ～.jp ｜　 　｜データをお送りします。｜
 ===============================================================

上記の様な設定になっております。

 ★これまで試してダメだったこと
 ・Set myOlApp = CreateObject("Outlook.Application")を
 　Set myOlApp = CreateObject("OutlookExpress.Application")の様に何パターンか。
 ・マクロの記録をし直し、OutlookExpressが立ち上がる様にはなったものの、宛先や、挨
 　拶文が出てこない。
 ・ハイパーリンクからメールが立ち上がる様にすると自動では貼り付けたいファイルが出
 　てこない。
 etc

 PC自体詳しくないのですが、Outlookでは一貫して出来ていたことが
 Outlook　Expressでは出来なくなってしまっているのでしょうか？

 - - -
 整形しました　(to-risugari)

 - - -
to-risugariさん>整形ありがとうございます。見栄え良くなりました★
 - - - 
はじめまして、cqeと申します。これは、非常に参考になりました！
早速使わせていただきます。
もう少し、お聞きしたいのですが、

myItem.Body = Aisatu '挨拶文　のところですが、

エクセルのA1～B4（複数行）のセルの文書を本文に入れてたいのですが、
どのように記述したらようでしょうか？

 - - - 
 このトピックは未解決です。
相談内容との趣旨も違うので、[cqe]さんの投稿は
下記に新規投稿の形で転記しました。
[[20080815074223]]
　
(みやほりん)(-_∂)b　2008/8/15 07:55

コメント返信：

[ 一覧(最新更新順) ]

[[20080619103017]] 『マクロで“Outlook Express”を使用してエクセル刀x（マキ） ページの最後に飛ぶ

[[20080619103017]]　『マクロで“Outlook Express”を使用してエクセル刀x（マキ）　ページの最後に飛ぶ