|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.05.2021 15:49:32 |
Gast86748 |
|
|
|
26.05.2021 16:03:59 |
Werner |
|
|
 eMails aus Zeilen abhängig vom Datum |
26.05.2021 16:14:27 |
Gast27029 |
|
|
|
26.05.2021 19:18:12 |
Werner |
|
|
|
30.06.2021 15:44:28 |
Gast29433 |
|
|
Von:
Gast27029 |
Datum:
26.05.2021 16:14:27 |
Views:
221 |
Rating:
|
Antwort:
|
Thema:
eMails aus Zeilen abhängig vom Datum |
|
Hallo Werner,
naja, der Code ist ja bislang nur die Funktion für den Mailversand. Was mir fehlt ist wie ich das MAILTO zusammen bauen kann.
Die Idee dahinter ist das die eMail an alle versendet wird die noch nicht ausgetreten sind. Ich setzte hier einfach ein Datum 20 Jahre in der Zukunft.
Private Sub cmdbtn_eMail_generieren_Click()
Dim OutApp As Object
Dim OutMail As Object
Dim strbody As String
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)
strbody = Sheets("Maildata").Range("A1").Value 'Von diesem Blatt den Text holen
On Error Resume Next
With OutMail
.Display
.To = eMail_To
.CC = eMail_Cc
.BCC = eMail_BCc
.Subject = Sheets("Maildata").Range("B6").Value 'Von diesem Blatt die aktuelle Betreffzeile holen
.HTMLBody = strbody & "<br>" & .HTMLBody
.Display 'Erst mal anzeigen und nicht direkt senden
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End If
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
26.05.2021 15:49:32 |
Gast86748 |
|
|
|
26.05.2021 16:03:59 |
Werner |
|
|
eMails aus Zeilen abhängig vom Datum |
26.05.2021 16:14:27 |
Gast27029 |
|
|
|
26.05.2021 19:18:12 |
Werner |
|
|
|
30.06.2021 15:44:28 |
Gast29433 |
|
|