エクセルの学校：全文検索：Hyper Estraier：』（ ! ----

Results of 1 - 1 of about 671 for 』（ ! ---- | ----* (0.116 sec.)

』（ (96021), ---- (-96142)

[[20080619103017]]: #score: 4666; @digest: ca779980a64c41de250b7f503b2eee19; @id: 38591; @mdate: 2008-08-14T22:55:13Z; @size: 3327; @type: text/plain; #keywords: myolapp (32237), 拶文 (25243), 件| (22172), myitem (16525), 容== (15241), aisatu (13180), express (10128), 挨拶 (9320), risugari (7927), ・挨 (7380), mynamespace (6938), outlook (6659), outlookexpress (6475), お送 (6066), 信先 (4960), 宛先 (4310), 〜. (3949), 先( (3916), 送信 (3074), ル送 (2892), 。| (2739), 宛名 (2509), 切替 (2252), 先・ (2218), 送り (1738), 先") (1649), 認の (1629), ン: (1569), sname (1532), 整形 (1442), メー (1235), 添付 (1222); 『マクロで“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 ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200806/20080619103017.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ