Excel VBA-Forum - Das Forum zu Microsoft Excel VBA

VBA Excel VBA Word VBA Access VBA VBScript VB C# Objective-C C++ SQL JAVA VBA (English) Jobs Übersicht

Thema	Datum	Von Nutzer	Rating	Antwort
eMails aus Zeilen abhängig vom Datum	26.05.2021 15:49:32	Gast86748
eMails aus Zeilen abhängig vom Datum	26.05.2021 16:03:59	Werner
eMails aus Zeilen abhängig vom Datum	26.05.2021 16:14:27	Gast27029
eMails aus Zeilen abhängig vom Datum	26.05.2021 19:18:12	Werner
eMails aus Zeilen abhängig vom Datum	30.06.2021 15:44:28	Gast29433

Ansicht des Beitrags:

Von:
Werner

Datum:
26.05.2021 19:18:12

Views:
194

Rating:

Antwort:

Thema:
eMails aus Zeilen abhängig vom Datum

Hallo,

ich dachte in Spalte A stehen deine Mail-Adressen und in Spalte B das Datum.

Im Code holst du dir jetzt aber plötzlich aus A1 den Body-Text und aus B6 den Betreff ??

Ich bin jetzt mal davon ausgegangen, dass die Mailadressen in einem anderen Tabellenblatt sind.

Public Sub cmdbtn_eMail_generieren_Click()
Dim OutApp As Object, OutMail As Object, strbody As String
Dim i As Long, strAddressat As String

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

With Worksheets("Mailadressen")
    For i = 1 To .Cells(.Rows.Count, "A").End(xlUp).Row
        If .Cells(i, "B") <> "" Then
            If CDate(.Cells(i, "B")) > Date Then
                If strAddressat = vbNullString Then
                    strAddressat = .Cells(i, "A")
                Else
                    strAddressat = strAddressat & ";" & .Cells(i, "A")
                End If
            End If
        End If
    Next i
End With

strbody = Sheets("Maildata").Range("A1").Value

On Error Resume Next
        
With OutMail
    .to = strAddressat
    .CC = eMail_Cc
    .BCC = eMail_BCc
    .Subject = Sheets("Maildata").Range("B6").Value
    .HTMLBody = strbody & "<br>" & .HTMLBody
    .Display
End With

On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Sub

Gruß Werner

Ihre Antwort

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:		Name:		Email:

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
eMails aus Zeilen abhängig vom Datum	26.05.2021 15:49:32	Gast86748
eMails aus Zeilen abhängig vom Datum	26.05.2021 16:03:59	Werner
eMails aus Zeilen abhängig vom Datum	26.05.2021 16:14:27	Gast27029
eMails aus Zeilen abhängig vom Datum	26.05.2021 19:18:12	Werner
eMails aus Zeilen abhängig vom Datum	30.06.2021 15:44:28	Gast29433