Excel VBA Termin in Outlook eintragen und versende

Hallo Zusammen,
ich habe ein Problem und das Internet hat einfach keine Antwort für mich parat...
Ich habe eine Excel Tabelle in der in Spalten E-Mail Adressen untereinander stehen. Die Adressen in einer Spalte bilden dann jeweils einen Verteiler.
Unter allen Spalten/ Verteilern steht ein Feld wo ein Betreff eingetragen werden soll und auch ein Text (ist für alle in einem Verteiler gleich). Das soll sozusagen ein Serientermin werden.
Ich möchte jetzt einen Button unter dem Verteiler haben der mir im Outlook einen Termin öffnet und den darüber stehenden Verteiler bereits eingefügt hat und auch den Betreff und Text. Absolutes Highlight wäre dann noch das anhängen einer Datei.
Eine andere Möglichkeit wäre auch das der Button gleich automatisch an diesen Verteiler Betreff, Text und Datei verschickt.
Ist das überhaupt möglich? Werd langsam wahnsinnig...
Danke für Eure Hilfe

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Thorsten,
kein Stress, wir kriegen das schon noch hin.
Ich habs jetzt sogar hin bekommen dir eine Excel Datei hoch zu laden... Ich hoffe du kannst damit was anfangen.
https://www.herber.de/bbs/user/85925.xlsx
Mal noch ganz kurz zur Erklärung:
Hinter den beiden "Schaltern" unter der Tabelle befindet sich folgender Code:

Sub Excel_Serial_Mail()
Dim MyOutApp As Object, MyMessage As Object
Dim i As Long
'Start der Sendeschleife an 10 Empfänger
For i = 6 To 43
Set MyOutApp = CreateObject("Outlook.Application")
Set MyMessage = MyOutApp.CreateItem(0)
With MyMessage
'Die Empfänger stehen in Spalte A ab Zeile 1
.To = Cells(i, 5) 'E-Mail Adresse
'Der Betreff in Spalte B
.Subject = Cells([47], [3])   '"Betreffzeile"
'Der zu sendende Text in Spalte C
'Maximal 1024 Zeichen
'Der Text wird ohne Formatierung übernommen
.Body = Cells([50], [3])
'Hier wird die Mail angezeigt
'.Display
'Hier wird die Mail gleich in den Postausgang gelegt
.Send
End With
'Objectvariablen leeren
Set MyOutApp = Nothing 'CreateObject("Outlook.Application")
Set MyMessage = Nothing 'MyOutApp.CreateItem(0)
'Sendepause einschalten
'Outlook kann die Aufträge nicht schnell genug verarbeiten
Application.Wait (Now + TimeValue("0:00:05"))
Next i
End Sub

Habe ich aus dem Internet
Wenn echte E-Mail Adressen in den Zellen stehen funktioniert der auch wunderbar, aber eben nur als Serienmail. Jetzt haben sich die Anforderungen geändert und ich möchte einen Serientermin mit Ort (Treffpunkt), Uhrzeit und Datum und gleichen Text und Betreff für alle Personen innerhalb von einem Verteiler verschicken.
Und eine Datei anhängen wäre auch spitze.
Falls das aber mit der Datei nicht funktioniert oder zu aufwendig ist, wäre es auch ausreichend wenn sich der Termin mit allem anderen als Entwurf im Outlook öffnet und man die Datei noch manuell rein kopieren kann.
Ich hoffe ich konnte dir das halbwegs verständlich rüber bringen...
Danke dir
LG Hans

Beliebteste Forumthreads (12 Monate)

Excel VBA Termin in Outlook eintragen und versende

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Excel VBA Termin in Outlook eintragen und versende

6 Beiträge zum Forumthread Beiträge zu diesem Forumthread

309 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

6
Beiträge zum Forumthread

Beiträge zu diesem Forumthread