per VBA Lotus Mails verschicken
09.05.2018 22:58:07
Marc
ich habe ein Excel Tool das per VBA E-Mails über Outlook versendet. Leider stellen wir unser Mail Programm auf Lotus um, daher würde ich gerne Emails jetzt über Lotus versenden.
Aktuell sieht der Code für Outlook so aus (dieser funktioniert):
Private Sub Workbook_open()
Dim rCell As Range
Dim objApp As Object
Dim objMailItm As Object
Dim tBRng As String
Dim tReceiver As String
tBRng = "A10:A" & Sheets("Tabelle1").UsedRange.Rows.Count
Set objApp = CreateObject("Outlook.Application")
For Each rCell In Sheets("Tabelle1").Range(tBRng)
If IsDate(rCell.Offset(0, 6).Value) Then
If rCell.Offset(0, 6) - Date
Im Internet habe ich diesen hier im Forum gefunden (siehe Link) Leider geht der Überhaupt nicht und ich verstehe nicht warum. Kann mir da bitte jemand weiterhelfen?https://www.herber.de/forum/archiv/832to836/832432_Per_vba_LotusMail_verschicken.html