0
以下の関数を与え、変数%TABLE_HERE%
を、電子メールにも添付されているExcelスプレッドシートの範囲から生成されたテーブルに置き換えたいと思います。Excelレンジが電子メールテンプレートに追加されました
Public Function GenerateEmail(fileName As String, tbleRange As Range)
Application.ScreenUpdating = False
Dim OutApp As Object
Dim OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItemFromTemplate(fileName)
With OutMail
.HTMLbody = Replace(OutMail.HTMLbody, "%TABLE_HERE%", RangetoHTML(tbleRange))
.Attachments.Add (Application.ActiveWorkbook.FullName)
.Display
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
End Function
私は少しの研究を行い、このすべてをあなたのために行い、ここの皆さんと共有したいと願っています!あなたはそれがチャートであなたが望んでいたように動作するように手に入れた
以下の私の答えを参照してください? – braX
私は、それも素晴らしい作品! – Maldred