質問: strmoji '本文の代入 objmail.display '表示 end sub それで、実際にはstrmoji に代入した文字列の下に、このマクロを記述してあるbookのsheets("sheet1").range("a1:d10")をコピーし、 「リッチテキスト形式」で貼り付けたいのです。 どのようなコードに変えればよいのか教えていただけると助かります。 よろしくお願いいたします。
回答: >ただ、マクロを2回以上走らせると、その都度いくつもoutlookが立ち上がってしまいます。 >これは解消できますか? それは前回qaで手当て済みだったんですけどね。 dim oapp as object dim objmail as object dim strmoji(1) as string dim n as long on error resume next set oapp = getobject(, "outlook.application") on error goto 0 if oapp is nothing then set oapp = createobject("outlook.application") oapp.getnamespace("mapi").getdefaultfolder(6).display end if set objmail = oapp.createitem(0) strmoji(0) = "こんにちは!" & vbcrlf & _ "テストメールです。" & vbcrlf & _ "よろしくおねがいします。" & vbcrlf strmoji(1) = "以上です。" & vbcrlf & _ "emax株式会社" & vbcrlf & _ "emax" objmail.to = "e-mail_address_here" objmail.subject = "テスト" objmail.bodyformat = 2 'html形式 objmail.body = strmoji(0) & strmoji(1) objmail.display n = len(strmoji(0)) activesheet.range("a1:d10").copy oapp.activeinspector.wordeditor.range(n, n).paste application.cutcopymode = false set objmail = nothing set oapp = nothing bodyformatはhtml形式じゃないと書式が維持できないような感じです。 #バージョン、もしくは受信側のメーラーによるかもしれませんけど..