首記の件、以前も
質問をさせていただきましたが、
大変恐縮ではございますが、再度お力添えください・・・
下記のコードをEXCEL"依頼メール"というシートのVBAに記載して
outlookメールに表示させるというところまで。
そこから
"依頼メール"シートの隣に新たにシート"集計表"と作成して
範囲A1からD5までの表を"依頼メール"シートに記載してoutlookに
表示された文章の下に挿入させたいのですが、なかなかコードが
うまくいきません・・・
他力本願で申し訳ないですが、ご教授いただければ
幸いでございます。よろしくお願いをいたします。
--------------------------------------------------------------------
Sub 依頼メール()
Dim ol As Object
Set ol = CreateObject("outlook.application")
Dim mail As Outlook.MailItem
Set mail = ol.CreateItem(0)
Dim wsMail As Worksheet
Set wsMail = ThisWorkbook.Sheets("依頼メール")
With wsMail
mail.To = .Range("C2").Value
mail.CC = .Range("C3").Value & ";" & .Range("C4").Value & ";" & .Range("C5").Value & ";" & .Range("C6").Value
mail.Subject = .Range("C7").Value
mail.BodyFormat = olFormatPlain
mail.Body = .Range("C8").Value
mail.Display
End With
--------------------------------------------------------------------
