HOME > Q&A > Excel （VBA）

Excel （VBA）
Excel VBAに関するフォーラムです。
  • 解決済みのトピックにはコメントできません。
このトピックは解決済みです。
質問

 
(Windows 11全般 : Excel 2016)
EXCELのVBAでOutlookメールを作成しています
投稿日時: 22/10/21 16:20:12
投稿者: さぶ

いつもお世話になっております。
 
首記の件ですが、
下記のコードをEXCELのVBAに記載して
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
 
mail.BodyFormat = 3
Set sel = ol.ActiveInspector.WordEditor.Windows(1).Selection
 
Range("A11:D15").Copy
sel.Paste
sel.typetext vbCrLf & vbCrLf
 
Application.CutCopyMode = False
 
 
End Sub    
--------------------------------------------------------------------
 
上記を実行すると、表が上にきて
文章が下に表示されてしまいます。
 
これを逆にしたいのですが、
うまくいきません。困っております・・・
 
ご教授願えないでしょうか、
お願いを申し上げます。    
回答
投稿日時: 22/10/21 16:56:26
投稿者: taitani
投稿者のウェブサイトに移動

以下のページを参考にしてみましょう〜
https://fastclassinfo.com/entry/excelvba_outlook_data_with_table/
回答
投稿日時: 22/10/21 17:19:21
投稿者: taitani
投稿者のウェブサイトに移動

あ、こちらの方がご希望に添えるかもしれないです。
http://extan.jp/?p=6692
回答
投稿日時: 22/10/21 17:30:51
投稿者: sk

引用:
Set sel = ol.ActiveInspector.WordEditor.Windows(1).Selection
  
Range("A11:D15").Copy
sel.Paste
sel.typetext vbCrLf & vbCrLf

Dim wrdDoc As Object 'Word.Document
 
Set wrdDoc = mail.GetInspector.WordEditor
 
With wrdDoc.Paragraphs.Add.Range
    .Collapse 0 'wdCollapseEnd
    Range("A11:D15").Copy
    .Paste
End With
 
wrdDoc.Paragraphs.Add
wrdDoc.Paragraphs.Add
 
------------------------------------------------------
 
以上のように書き換えればよろしいのではないかと。
投稿日時: 22/10/31 11:36:38
投稿者: さぶ

いろいろな回答ありがとうございます。
思ったものの完成にたどりつかず
四苦八苦していますが、
何とか頑張って作成してみます。