[Erebos76]

Falls Du eine Mail über Outlook versenden willst, kann Dir der Code hier vielleicht weiterhelfen. Er stammt aus einer Datenbank, die ich mal programmiert habe. Insofern musst Du ihn noch anpassen und auf Zellen ("Range") in Excel umstellen. Da Du mit SVerweis arbeitest, ist es wohl keine Datenbank, sondern ein Tabellenblatt mit vielen Daten.

Der Code erstellt eine Mail und füllt die Daten Empfänger, CC, BCC, Betreff, Inhalt aus. Diese werden als String bzw. Outlook.Recipient an die Funktion übergeben. Nach Erstellen musst Du noch auf "Senden" klicken. Outlook erlaubt keinen automatisierten Zugriff auf den Mailversand. Es wird vielmehr ein Bestätigungsfenster eingeblendet, daß der Benutzer erst nach 10sec. glaube ich bejahen kann.

Offen steht dann noch, wie Du die Daten in Deiner Mail formatierst. Mit vbTab oder Chr(9) sollte man das aber etwas recht ordentliches hinbekommen. Denkbar ist auch, aus der Tabelle ein pdf zu erzeugen, bspw. mit PDFXChange, und dieses anzuhängen. PDFXChange erlaubt einen recht guten Zugriff via Startparameter.

Have fun.

Public Function SendInfoMail(strSubject As String, strBody As String, objRecipientTo As Outlook.Recipient, Optional objRecipientCC As Outlook.Recipient, Optional objRecipientBCC As Outlook.Recipient) As Boolean
    
    Dim objOutlook As Outlook.Application
    Dim objMail As Outlook.MailItem
    Dim objRecipient As Outlook.Recipient
    Dim objRecipientCopy As Outlook.Recipient
    Dim strFreeLine As String
    
    Set objOutlook = Outlook.Application
    Set objMail = objOutlook.CreateItem(olMailItem)
    
    strFreeLine = String(100, Chr(175))
        
    With objMail
        Set objRecipient = .Recipients.Add(objRecipientTo)
        objRecipient.Type = olTo
        If objRecipientCC.Name <> "nothing" Then
            Set objRecipientCopy = .Recipients.Add(objRecipientCC)
            objRecipientCopy.Type = olCC
        End If
        .Subject = strSubject
        strBody = strBody & .Body
        .Body = strBody
        .Display
    End With
    
    Set objOutlook = Nothing
    Set objMail = Nothing
    Set objRecipient = Nothing
    
    SendInfoMail = True
    
End Function