Senden einer Tabelle per E-Mail vba

Question

Hey Leute, ich habe ein Problem bei dem Versuch, eine E-Mail über Excel zu senden. Ich versuche, eine E-Mail von Excel zu senden, die einen Zeitplan als shown zeigt.

Am Freitag konnte ich die E-Mail erhalten, aber jetzt sendet es scheint nicht zu funktionieren. Vielleicht dauert es nur eine Weile, um zu senden, ich bin mir nicht sicher.

Ich würde gerne in der Lage sein, den Bereich in Farbe zu senden, wenn möglich und ich bin mir nicht sicher, ob das möglich ist.

Jede Hilfe wäre viel

Private Sub SendEmail() 

Dim OutApp As Object 
Dim OutMail As Object 
Dim strbody As String 

Set OutApp = CreateObject("Outlook.Application") 
Set OlObjects = OutApp.GetNamespace("MAPI") 
Set OutMail = OutApp.CreateItem(olMailItem) 

On Error Resume Next 
With OutMail 
    .To = ("xxxx@hotmail.com") 
    .Subject = "Test Mail" 
    .Body = "This is a test email." & Time ' Time refers to a range of cells e.g. a1:h15 
    .Display 
    .Send 
End With 

End Sub 

Answer 1

Hier versuchen, diese geschätzt. Das ist etwas, was ich aus einem früheren Programm geschrieben habe und das ist der gleiche Stil, in dem du das machst. Seien Sie erschöpft, wenn Sie .Send verwenden, müssen Sie das Pop-up von Outlook "OK".

'-------Send Mail---------- 
    strbody = "TEST:" & strbody 'Build header. 
    Dim OutApp As Object 
    Dim OutMail As Object 
    Set OutApp = CreateObject("Outlook.Application") 
    OutApp.Session.Logon 
    Set OutMail = OutApp.CreateItem(0) 
    On Error Resume Next 
    With OutMail 
     .To = "test@something.com" 'Email to be sent to here. 
     .cc = "" 
     .BCC = "" 
     .Subject = "Test! " & Format(Date, "mmm-dd-yy") 
     .Body = strbody 
     .attachments.Add ActiveWorkbook.FullName 
     .Display 'Can use .Send however it will ask for verification within outlook 
    End With 
    On Error GoTo 0 
    Set OutMail = Nothing 
    Set OutApp = Nothing