Office: Excel Vba Email verzögert versenden

phil1901 · 30. Januar 2014

Hallo an Alle!

und zwar habe ich versucht, siehe Anhang, aus einer Excel Tabelle bestimmte Zeilen in einer Email zu verschicken. Grund ist, dass ich unsere Übungstermine in der Feuerwehr an die Zeitung melden muss und ich möchte mir aber das umständliche Eingeben per Hand sparen. Daher der Gedanke das über VBA zu lösen. Leider hat das nicht so ganz geklappt, da ich absoluter Anfänger bin und gerade parallel Matlab lerne und da ständig was vertausche*mrcool .

UND: Ich habe schon viel und lange im Internet gesucht, aber bin nicht so recht voran gekommen.

Ich brauche Quasi eine Schleife, die mir immer die Zeilen C bis F kopiert und in einer Email versendet. Diese Email soll mit einer Übermittlungsverzögerung verschickt werden (Feld A+B), so dass diese im Postausgang von Outlook liegen, aber erst an einem bestimmten Datum versendet wird. Bisher habe ich folgenden Code, da ich die Schleife und Verzögerung nicht hinbekomme:

Code:

Sub Send_Range()

Dim iSpaltenanzahl As Integer
Dim wks1 As Worksheet

For i = 2 To 5

' Select the range of cells on the active worksheet.
ActiveSheet.Range("C2:F2").Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Mit Bitte um Veröffentlichung"
.Item.To = "################"
.Item.Subject = "Anzeige Feuerwehr Horrheim"
.DeferredDeliveryTime = "25.08.2014 12:15"
.Item.Send

End With

Application.Wait (Now + TimeValue("0:00:03"))

Next i

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich hoffe ihr könnt mir helfen, auch für Links die mir weiterhelfen bin ich dankbar.

Gruß

:)

mumpel · 1. Februar 2014

Hallo!

Schau Dir mal Email erstellen - Teil 4 - Die Parameter in meinem Outlook-Workshop an. Dort findest Du die wichtigen Paramater. "DeferredDeliveryTime" übernimmt die gewünschte Aufgabe. Funktioniert aber nur mit Outlook.

Gruß, René

mumpel · 1. Februar 2014

Und hier mal noch eine Beispieldatei: Excel->Outlook, Email per VBA
In dieser Beispieldatei findest Du mehrere Möglichkeiten zum Versenden von Emails aus Excel. VBA-Kennwort ist ein kleines a.

phil1901 · 2. Februar 2014

Hey mumpel,

danke, werde ich mir mal anschauen.

Gruß

phil1901 · 6. Februar 2014

So,

also ich hab das jetzt mit der DeliveryTime hinbekommen. Jetzt habe ich das Problem, dass ich den Fehler bekomme, dass die For-Schleife nicht initialisiert wird. Kann mir da jemand helfen*mrcool
Und auch meine Zellauswahl C:F passt nicht.

Bin für jede Hilfe dankbar. Ohne die Schleife Funktioniert das schon...

Code:

Sub Send_Range()

Dim iSpaltenanzahl As Integer
Dim wks1 As Worksheet
Dim strSendezeit As String

For Zeile = 2 To 3

'Sendezeiten übernehmen.
strSendezeit = Range("A" & Zeile).Value

' Select the range of cells on the active worksheet.
ActiveSheet.Range("C" & Zeile:"F" & Zeile).Select

' Show the envelope on the ActiveWorkbook.
ActiveWorkbook.EnvelopeVisible = True

' Set the optional introduction field thats adds
' some header text to the email body. It also sets
' the To and Subject lines. Finally the message
' is sent.
With ActiveSheet.MailEnvelope
.Introduction = "Mit Bitte um Veröffentlichung"
.Item.To = "philipp.schnitz88@gmail.com"
.Item.Subject = "Anzeige Feuerwehr Horrheim"
.Item.DeferredDeliveryTime = CDate(strSendezeit)
.Item.Send

End With

Application.Wait (Now + TimeValue("0:00:03"))

Next Zeile

End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

mumpel · 12. Januar 2021

von phil1901

[...] Und auch meine Zellauswahl C:F passt nicht [...]
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Natürlich nicht. Der Doppelpunkt gehört vor das F in den Anführungszeichen, und hinter "Zeile" gehört ein &-Zeichen

mumpel · 6. Februar 2014

Anbei mal eine andere Möglichkeit. Die Email wird per Doppelklick auf eine Zelle erstellt. Hierbei wird allerdings nicht "MailEnvelope" genutzt, sondern direkt ein Outlook-Objekt erstellt. Outlook sollte idealer Weise bereits geöffnet/gestartet sein (kannst Du ja in den Systray minimieren), damit die Emailerstellung schneller geht.

Office: Excel Vba Email verzögert versenden

Excel Vba Email verzögert versenden

Excel Vba Email verzögert versenden

Excel Vba Email verzögert versenden

Excel Vba Email verzögert versenden - Similar Threads - Excel Vba Email

VBA eine Mail Empfänger aus Zellen ziehen

Bild aus Excel mittels VBA in Email einfügen

Excel 2003 (VBA) Tabellenblatt Bereich als Email senden

Email aus Excel per VBA verschicken

Aufgaben aus einer Excel-Tabelle an verschiedene E-Mail-Adressen verteilen

Excel VBA Email schreiben

Emailinhalt in Excel einlesen