ich konnte meine Excel-Datei davon überzeugen, dass sie mir in Abhängigkeit von Fälligkeiten bestimmter Servicetermine Emails verschickt. Dazu verwende ich folgenden Code:
Sub Email()
For i = 8 To 40
If Worksheets("LKW").Cells(i, 3) "" Then
If Date >= Worksheets("LKW").Cells(i, 3) And Worksheets("LKW").Cells(i, 4) = "" Then
Dim objOutlook As Outlook.Application
Dim objMail As Outlook.MailItem
Set objOutlook = New Outlook.Application
Set objMail = objOutlook.CreateItem(olMailItem)
With objMail
.Recipients.Add Worksheets("LKW").Range("B3").Value
.Subject = Worksheets("LKW").Range("A1").Value
.Body = Worksheets("LKW").Cells(i, 5).Value
End With
If MsgBox("Email an " & Worksheets("LKW").Range("D3").Value & " " & Worksheets(" _
LKW").Range("E3").Value & vbNewLine & vbNewLine & Worksheets("LKW").Range("A1").Value & vbNewLine & vbNewLine & Worksheets("LKW").Cells(i, 5).Value & vbNewLine & vbNewLine & "Soll diese Email gesendet werden?" & vbNewLine & vbNewLine & "(Die Datei muss danach gespeichert werden!)", vbOKCancel, "Eine Emailnachricht ist fällig") = vbOK Then
objMail.Send
Worksheets("LKW").Cells(i, 4) = Date
End If
End If
End If
Next i
End Sub
In Outlook habe ich vier Emailadressen angelegt. Ich möchte, dass die Absenderadresse der Email diejenige ist, welche auf "@gmx.de" endet. Zur Zeit wird als Absender immer die "@outlook.de"-Adresse benutzt. Ich habe gelesen, dass man zuerst alle gespeicherten Absenderadressen in Outlook auslesen muss und dann die entspechende Absenderadresse auswählen kann. Dies zu bewerkstelligen übersteigt aber bei weitem meinen Horizont. Auch im Netz vorhandene Beispiele anzupassen und in meinen Code einzupflegen bekomme ich nicht hin.
Desweiteren wird die gesendete Email nicht im Standardordner "Gesendete Elemente" abgelegt. Auch dass ist für mich schier unmöglich zu lösen.
Ich weiß, es ist ganz schön viel verlangt, wenn ich euch bitte, mir diese Funktionen in mein Script einzubauen. Aber ich schaffe es selbst nicht.
Ich würde mich sehr freuen, wenn jemand Zeit findet, sich meinem Script anzunehmen.
Bis dahin und viele Grüße in die Runde
Kulo