|
× [PR]上記の広告は3ヶ月以上新規記事投稿のないブログに表示されています。新しい記事を書く事で広告が消えます。 |
 |
|
Mail … 1
0ption Explicit Subメール作成0 Dim oApp As Object 'Outlookのオブジェクト Dim objMA:L As Object 'メールのオブジェクト Dim strMOJI As String 冽トラt Dim strSign As String '署名 Dlm strTMP(6)As Strlng'添付ファイル Dim strCL(7)As String '改行コード Dim : As Var:ant Set oApp = CreateObjeCt(″Outlook.Application″) Set objMAIL = oApp.Createltem(0) objMAIL.display'編集画面を表示 objMAIL.SentOnBehalfOfName=Range(″差出人″) 'メール画面には表示されないが裏で設定される objMAIL.To = Range(″'Lうし″) objMAIL.CC = Range(″CC″) objMAIL.Bcc = Range(″BCC″) . objMAIL.Subject=Range(″件名1″)&Range(″件名2″)&Range(″件名3″)&Range(″件名4″)&Range(″件名5″) '添付ファイル For i = l To 5 1f Not isEmpty(Range(″添付ファイル″&i))Then strTMP(l)=Range(″添付ファイル″&i) objMAIL.Attachments.Add strTMP(1) End lf Next i '改行コード取得 For i = l To 5 1f Not lsEmpty(Range(″日彙`予″ & i)) Then strCL(i) 〓 vbCrLf End lf Next i '本文 'strMO」l = Range(″フトラtl″)& strcL(1) & Range(″フトラt2″) & strCL(2) & Range(″フトラに3″)& strCL(3)& _ Range(″フトラt4″)& strCL(4) & Range(″フトラt5″) & strCL(5) & _ vbCrLf&Range(″署名″)&strCL(6)&Raηge(″本文6″) objMAIL.Body = Range(″フト5に1″) & strCL(1) & Range(″冽ド5t2″) & strCL(2) & Range(″冽ドがt3″) & strCL(3) & _ Range(″フトラに4〃)& strCL(4)& Range(″冽ヽ〕t5″)& strCL(5)& _ vbCrLf&Range(″署名″)&strCL(6)&Range(″本文6″) 'str∥OJl objMA:L.BodyFormat = 2 obj∥AIL.Save'下書き保存 Set obJMAIL = Nothing Set oApp = Nothing End Sub Subメール作成2() Dim oApp As Object'Outlookのオブジェクト 'Dim objMAIL As Object'メールのオブジェクト Dim obj∥AIL 'As Out16ok.Mailltem Dim strMOJI As String コドラt Dim strSign As String'署名 Set oApp 〓 CreateObject(″Outlook.Application〃) Set objMAIL = oApp.Createltem(0) objMAIL.display'編集画面を表示 objMAIL.SentOnBehalfOfName=Range(″差出人″) objMAIL To=Range(〃宛先″) objMAIL.CC = Range(″CC″) objMAIL.Bcc = Range(″BCC″) objMAIL.Subject=Range(″件名1″)&Range(″件名2″)&Range(″件名3″)&Range(″件名4″)&Range(″件名5″) Mail - 2 '添付ファイルのパス strTMP(3)=Range(〃添付ファイル1″) strTMP(3)=Range(″添付ファイル2″) strTMP(3)=Range(〃添付ファイル3″) strTMP(4)=Range(″添付ファイル4″) strTMP(5)=Range(″添付ファイル5″) objMA:L.Attachments.Add strTMP(1)'☆空欄だとエラーになる objMA:L.Attachments.Add strTMP(2) objMAIL.Attachments.Add strTMP(3) objMAIL.Attachments Add strTMP(4) objMAIL.Attachments Add strTMP(5) 'ob」MAIL.Attachments.Add Range(″添付ファイル1″)'エラーになる '本文 'str∥OJl=″こんにちは:″'改行はvbCrLf obj∥AIL.Body = strMOJI str∥0」| = Range(″フト,tl″) & Range(″]女`子1″) & Range(″フト,t2:な(9冽:::評∫″:F`]i:な(9117:ジ∫″:'〕t3″) & Range(″1彙イテ3″) & _ Range(″本文4″)&Range(″改行4″)&Ran vbCrLf&Range(″署名″)&Range(″改行6″)&Range(″本文6″) objMAIL.3ody = strMOJl 'ob」MAIL.BodyFormat=olFormatHTML 'エラーになる objMAIL.Save'下書き保存 Subメールイ乍成10 Dim oApp As Object'Outlookのオブジェクト Dim objMAIL As Object'メールのオブジェクト Dim strMO」l As String '本文 'Dim strSign As String'署名 ::[ :::lATLCtte:1:::::::1:♀せ:∥,8,・Application″) objMAIL.display'編集画面を表示 '★エラーにならないけど無反応 g n hg tn O・‥ Nh t 一一 〇 N L ―〓 A Mp ・Jp b hYA u 00 S tt d ee n SS E 'objMA 'obj∥A 'ob」MA 'objMA 'obJMA 'objMA 'obJMA 'objMA L.SendUsingAccount = ″inaba_yumiko@smbcnikko.co.jp″ L.SendUsingAccount=″lnaba Yumiko/稲葉裕美子/リスク管理課″ [:鍵1181::∥:|::f∥:∥: : ″11:::一羊廿∥|∥:9消霙nlさ霙撃,1」;kク管理部ィンレジ》ッ トリ,スク管理言果″ [:::11:|:″ll:::一羊廿∥|∥:%溜曇巽囃∫:巽撃,I」要ク催コ里部リラく`ア催ヨヨ里調:″ [:鷺1181::∥:lf:「∥:∥: : ″11:::一羊廿∥|∥:9消霙n妹羹撃,1」;リ,スク管理言果″ '★値の参照のみ可能 ,::l船|[:鷺1:erNal:aLarr羊∥]:1°♀:∥ll:,籍異C称羹隼/り,スクリ,スク管理言果″ '☆オブジェクトが見つかりません り嘗I』よゞり!;ti、撃嬰り[よ量菫!;l::|:::[|:::|“:も:hiF雷ピ足:習≦i首主鱗!'∫:i::l:[::11;|::,9丁∥::lk♀9i∥∥:,1略讐ξ晟::異年)リス 'objMAIL Sender = oApp.Session.AddressLists(″Exchange Server″).AddressEntries(″inaba_yumiko″) '★変数定義が不正 i COnS:ilE::〕R認::l:NIs=A::::∥:―yumik°OSmbcnikko.co.jp″ 1 瀧: ::llil::ξ:nttu:lili」1:[bli:Sl°:bli:::11:(SE00ND_ACCOUNT) '―AccountがЙFIE? '★不正なプロパティ ||:lililillll西!:!|III::lilli:::|:!||||:ll:lll;:ζ♀:hll:counts(SECOND_ACCOUNT) Mail - 3 objMAIL.To=″Kojima Rika/小島/リスク管理課″ obj∥AIL.CC=″Watanabe Noriaki/渡辺章/リスク管理課″ obj∥AIL.Bcc=″Nambu Yosuke/南洋介/リスク管理課″ objttA:L.Subject=″テスト2″ '添付ファイルのパス obj∥A!L.Attachments.Add″￥￥ntcモニタリング￥業者moni￥与信枠モニタリング【業 者】20150602.xlsx″ obj∥AIL.Attachments.Add″￥￥ntc￥モニタリング￥業者moni￥信託ロスキーム20150602.xlsx″ '本文 str∥OJ!=″こんにちは:″'改行はvbCrLf obj∥AIL.Body = str∥OJl objMAIL.Save'下書き保存 Set obj∥AIL = Nothing Set oApp = Nothing End Sub Mal12 - 1 0ption Explicit Sub図の貼り付け0 With oApp.Activelnspector.WordEditor.Windows(1) Range(″Al:D10″).Oopy .Selection.Paste Application.CutCopy∥ode = False End With End Sub Subリッチテキスト形式で貼付0 With oApp.Activelnspector.WordEditor.Windows(1) Range(″Al:D10″).Oopy .Selection.PasteExcelTable Faise, False, True Application.CutCopyMode = False End With End '構文 Selection.PasteExcelTable [L:nkedToExcel], [WordFormatting], [RTF] 'LinkedToExcel …必須。True=リンク付 /FAlse〓非リンク 'WordFormatt rng,..必須。True=Word文書の書式を採晨RTF)で貼付′「:|:::需縦E鬱製暴晶各ルの書式を採用 'RTF …必須。True〓リッチテキスト形式 End Sub Sub拡張メタファイルで貼付0 With oApp.Activelnspector.WordEditor.Windows(1) Range(″Al:D10″).OopyPI`ture '拡張メタファイルとしてコピー .Selection.Paste Application.CutCopy∥ode = False End W:th End Sub Sub選択範囲を貼付0 Dim Ap As Object ・ Di口 ∥ As Object s:|::橋澤蕊出ているものをコピー(図でも表でもOKです) ::: lp==A:l:『::::|::l(:,utl°°k.App:ication〃) レジットリスク管理課″ 'アドレス ∥i鶴Sil,Ictiveinspector '画面を表示 '員占りf寸け .WordEditor.Windows(1).Selection.Paste End With End Sub Mai13 … 1 0ption Explicit Sub別名保存0 Set oApp = CreateObject(″Outlook Application″) Set obj∥AIL = oApp.Createltem(0) '/Bodyフォーマット(1:テキスト形式、2:HTML形式、3:リッチテキスト形式) objMAIL.BodyFormat = 2 obj∥AIL.display'編集画面を表示 'メール作成コードいろいろ '/件名を保存ファイル名にする→不適切な文字を置換 strFileName = objMAIL.Subject & ″.msg〃 ReplaceCharsForFileName strFileName, ″_″ Debug.Print strFiieName '/メールの保存(指定フォルダ)※テストメールは保存しない objMAIL.SaveAs″c:￥″&strFileName 'ファイルの種類(Type)を指定しない場合はMSG形式(.msg) '※OutlookのSaveAsメソッドのType: 'olHT∥L、olMSG、olRTF、olTemplate、o:Doc、 olTXT、olVCal、olVCard、o H Cal、 またはolMSGUnicode(値(数字)でOK) End Sub Subメールウィンドウを閉じる0 … Set oApp = CreateObject(″Outlook.Application″) Set objMAIL 〓 oApp.Createltem(0) '/Bodyフォーマット(1:テキスト形式、2:HTML形式、3:リッチテキスト形式) objMAIL.BodyFormat = 2 objMAIL.display'編集画面を表示 'メール作成コードいろいろ '/メールウィンドウを閉じる objMAIL.Close l '※OutlookのCioseメソッドの保存モード: 'olDiscard l ドキュメントに対する変更内容を破棄 |:|::::ptForSave る 倭奪=23f暑襟暮硼露 End Sub PR |
|
|
|
|
|
