Results of 1 - 1 of about 671 for 』（ ! ---- | ----* (0.108 sec.)
』（ (96027), ---- (-96148)
- [[20110329134844]]
- #score: 4666
- @digest: e9407ac143d75bc1f8fcdd8b8ab42e10
- @id: 53932
- @mdate: 2011-03-29T05:21:26Z
- @size: 2186
- @type: text/plain
- #keywords: express6 (24651), objmail (20125), 測フ (14761), windowsmail (7748), 信ob (7380), 保" (7055), oapp (6233), xldialogsendmail (6058), 注・ (4320), outlook (3700), 式保 (3438), ル_ (3416), ス& (3250), フル (3248), outlookexpress (3237), 上予 (2854), attachments (2841), ルパ (2739), ネン (2368), 予測 (2125), ・売 (2115), createitem (2079), 名). (1992), スas (1846), fileformat (1843), 添付 (1834), グ等 (1768), パス (1655), dialogs (1484), subject (1453), メー (1235), 行エ (1214)
- 『outlook Expressメールの添付について』（まき）
いつも色々参考にさせて頂いております。過去のログ等で検索したのですが、分からなか った為（VBAは他web参照）教えて下さい。 現在シートに『メール』というボタンをもうけ、実行中のファイルを添付で送ろうと考え ております。社内でOSがXP〜Windows7、メールがoutlook Express6(XP)、Windowsメール (Vista)、Liveメール(Windows7)となっています。今試しにoutlook Express6を使って 見ようと下記の通りVBAを組んだ所、実行エラー '429' ActiveXコンポーネントはオブジ ェクトを作成できません。と出て来てしまいます。outlook Express6では、駄目なのでし ょうか?でも、手動で行うとoutlook Express6で添付が出来ますが。 Private Sub メール_Click() Dim oApp As Object Dim objMAIL As Object Dim フルパス As String, シート名 As String Application.DisplayAlerts = False 'メッセージを出さない Application.ScreenUpdating = False '画面の描画をOFFにします シート名 = ActiveSheet.Name フォルダー = ThisWorkbook.Path Worksheets("TOP").Select 'ファイルの保存 フルパス = ActiveWorkbook.FullName 'フルパス（パス付ブック名） If Val(Application.Version) < 12 Then ActiveWorkbook.SaveAs Filename:=フルパス & "", FileFormat:=xlWorkbookNormal Else 'エクセルVer2007時に97-2000形式保" ActiveWorkbook.SaveAs Filename:=フルパス & "", FileFormat:=56 End If Worksheets(シート名).Select Set oApp = CreateObject("OutlookExpress.Application") 'Set oApp = CreateObject("WindowsMail.Application") Set objMAIL = oApp.CreateItem(0) objMAIL.To = "abc@1234.co.jp" objMAIL.Subject = "受注・売上予測ファイル" objMAIL.Body = "当月分の予測ファイルです。" objMAIL.Attachments.Add フルパス '送信 objMAIL.Send Set objMAIL = Nothing Set oApp = Nothing Application.DisplayAlerts = True 'メッセージを出す End Sub ちなみに、Excel2007だと次の」コマンドでメールが立ち上がりますが、2003では駄目でした。 Sub mail() Application.Dialogs(xlDialogSendMail).Show End Sub お忙しい所すいませんが、ご伝授の程お願い申し上げます。... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/201103/20110329134844.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97065 documents and 608341 words.
訪問者：