Aus Access automatisiert emails versenden

Sub SendMailWithAttachment_Standard(p_Subject As String, p_Anrede As String, p_Text As String, p_Email As String, p_Account As Long, p_Filename As String)

    Dim MyOutApp
    Dim MyMessage
    Dim body As String
    Dim subject As String
    
    Set MyOutApp = CreateObject("Outlook.Application")  
    
    Set MyMessage = MyOutApp.CreateItem(0)
    With MyMessage
    
        Set .SendUsingAccount = MyOutApp.Session.Accounts.item(p_Account)
        .GetInspector.Display
        .Display
    
        .To = p_Email
        '.ReadReceiptRequested = True  
        
        '.Importance = 2  
        '.OriginatorDeliveryReportRequested = True  
        
        If (p_Filename <> "") Then  
            .Attachments.Add p_Filename
        End If
        
        .subject = p_Subject
        
        body = "<p style='font-size:14.5;'>" & p_Anrede & "<br><br>" & p_Text  
            
        .HTMLBody = body & .HTMLBody
    
        .Save
        .Close 0
        '.Send 'Hier wird die Mail gesendet  
    
    End With
    
    Set MyOutApp = Nothing
    Set MyMessage = Nothing

    
End Sub