VBAをExcelに変換して、メールをOutlookに送信するときに

Question

Outlookでメールを送信しているときに、私が作業中のアクティブワークブックをどのように変換できますか？ このコードには添付ファイル.xlsxファイルがありますが、テキストで入力したいのですが、どうすれば変更できますか？ おかげ

'send mail code 
       Set ol = New Outlook.Application 
       Set olmail = ol.CreateItem(olMailItem) 
       With olmail 
        .To = "test@outlook.com" 
        .Subject = objetText 
        .Body = "testing" 
        .Send 

       .attachments.Add activeworkbook.fullname 
       End With 
      End sub 

Answer 1

は、あなただけのテキストに1つのワークシートを変換することができますので、私は、これはあなたが達成しようとしているものであると仮定しています。新しいワークブックにシートをコピーします（あなたがXLSMとして現在のブックで作業を続けることができます）、テキストとして、あなたはMSでattachments.add

Dim wbkthis As Workbook 
Dim wbkNew As Workbook 

Set wbkthis = ActiveWorkbook 
'So we can come back here 
Set wbkNew = Workbooks.Add 
'New book to copy sheet to 

wbkthis.Sheets("relevantsheetname").Copy Before:=wbkNew.Sheets(1) 

Application.DisplayAlerts = False 
'Supress overwrite and close alerts, you may not want this 

wbkNew.SaveAs "savelocation\Mybookname.txt", xlText 
'use this same string with your attachments.add code 
wbkNew.Close 

Application.DisplayAlerts = True 
wbkthis.Activate ' Go back to original file 

Answer 2

のために使用している文字列の保存場所を使用することを保存しますOfficeの場合、Excelのセル範囲をクリップボードにコピーし、そのメール本文がリッチテキスト形式で、Wordエディタを使用している場合は、これをOutlookメール本体に貼り付けることができます。この処理の間、セル範囲はリッチテキストテーブルに変換されます。

これは、コードによって達成することができます。

Sub emailer() 

Set oOlApp = CreateObject("Outlook.Application") 

olMailItem = 0 
Set oOlMItem = oOlApp.CreateItem(olMailItem) 

'get Excel cell range which shall be in the mail 
Set oWB = ActiveWorkbook 
Set oWS = ActiveWorkbook.Worksheets(1) 
Set oRange = oWS.Range("A1:C10") 

oRange.Copy ' Range is now in Clipboard 

With oOlMItem 

    .Display 

    .To = "email@email.com" 
    .Subject = "Subject" 

    Set oOlInsp = .GetInspector 
    Set oWdDoc = oOlInsp.WordEditor ' get Word Document from the MailBody 

    olFormatRichText = 3 
    .BodyFormat = olFormatRichText ' change to RichTextFormat 

    Set oWdRng = oWdDoc.Paragraphs(oWdDoc.Paragraphs.Count).Range 
    oWdRng.InsertBefore "This is before the Excel table." 
    oWdRng.InsertParagraphAfter 
    oWdRng.InsertParagraphAfter 

    Set oWdRng = oWdDoc.Paragraphs(oWdDoc.Paragraphs.Count).Range 
    oWdRng.Paste ' paste Excel range from Clipboard 

    oWdRng.InsertParagraphAfter 

    Set oWdRng = oWdDoc.Paragraphs(oWdDoc.Paragraphs.Count).Range 
    oWdRng.InsertBefore "This is after the Excel table." 


End With 

Application.CutCopyMode = False 

End Sub 

Answer 3

私はアクセルの答えは何が必要でしょうであることを確信していますが、テキストにそれに変換してそれを置くことについて尋ねられたことから、これはそれを行います。フォーマットはひどく見えます。 （VBEで）ツール/参照に入り、Microsoft Forms 2.0 Object Libraryの横にチェックを入れてください。

Dim ws As Worksheet 
Dim DataObj As MSForms.DataObject 
Set DataObj = New MSForms.DataObject 
Set ws = ActiveWorkbook.ActiveSheet 
    ws.UsedRange.Copy 
DataObj.GetFromClipboard 
strbody = DataObj.GetText(1) 

With NewMail 
    .SUBJECT = "Test Mail" 
    .From = """Sender"" <sender@email.com>" 
    .To = "receiver@email.com" 
    .CC = "" 
    .BCC = "" 
    .TextBody = strbody 
End With