Итак, я пытаюсь заставить это скопировать диапазон из другого раздела, указанного как переменная «Temp», так как мне заставить VBA скопировать диапазон Temp в excel и вставить форматирование и значения в тело Outlook?
Sub OutlookMessage()
Dim OutApp
Dim objOutlookMsg
Dim objOutlookRecip
Dim Recipients
Dim SubjLine As String
Dim MonSubjLine As String
Dim ws As Worksheet
Dim sndRange As Range
Dim Sunday
Dim Monday
Dim Today As Integer
Set OutApp = CreateObject("Outlook.Application")
Set objOutlookMsg = OutApp.CreateItem(olMailItem)
Set Recipients = objOutlookMsg.Recipients
Set objOutlookRecip = Recipients.Add("Recipient")
objOutlookRecip.Type = 1
objOutlookMsg.SentOnBehalfOfName = "Sender"
Today = Weekday(Date, vbMonday)
If Today = 1 Then
Sunday = Date - 1
Monday = Date - 7
End If
MonSubjLine = "WEEK " & (DatePart("ww", Date, vbMonday) - 1) & " - PHONE REPORT (" & Monday & " Th " & Sunday & ")"
SubjLine = StrConv(WeekdayName(Weekday(Date - 1, vbMonday), False, vbMonday), vbUpperCase) & " (" & Date - 1 & ") PHONE REPORT"
Today = Weekday(Date, vbMonday)
If Today > 1 Then
objOutlookMsg.Subject = SubjLine
ElseIf Today = 1 Then
objOutlookMsg.Subject = MonSubjLine
End If
objOutlookMsg.HTMLBody = "How to Get My Table In Here?"
For Each objOutlookRecip In objOutlookMsg.Recipients
objOutlookRecip.Resolve
Next
objOutlookMsg.Display
Set OutApp = Nothing
End Sub
Я просто использовал это, чтобы вставить его
SendKeys "^({v})", True