Office: Termin versenden

Me_and_my_Monk · 28. September 2015

Hi zusammen,

ich habe einen Code zum versenden einer E-Mail inkl. Termin erstellt.
Jetzt würde ich aber gerne das der Termin bei mir nicht drinnen steht beim Versand sondern das nur der Empfänger dies bei sich eintragen kann.

Code:

Sub Terminversand()

Dim outApp
Dim outApptmt
Dim outMail

Set outApp = CreateObject("Outlook.Application")
Set outApptmt = outApp.CreateItem(1)
With outApptmt
.Subject = "Neuer Schulungstermin" 'Treffendere Beschreibung notwendig
.Start = TextBox1.text
.End = TextBox2.text
.AllDayEvent = True
'.ReminderMinutesBeforeStart = var_ReminderTime
'.ReminderSet = var_Reminder
'.Location = var_Location
.MeetingStatus = 1 '1=olMeeting
.Save

Set outMail = .ForwardAsVcal
outMail.To = "dumm-batz@directbox.com"
outMail.Body = "Ein neuer Schlungstermin ist eingegangen."
outMail.Subject = "Neuer Schulungstermin"
outMail.Send
End With

Set outApptmt = Nothing
Set outApp = Nothing

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

Kann man einen anderen Typ eingeben oder "Im Auftrag von?".

Danke euch.

Gruss

:)

Me_and_my_Monk · 16. Januar 2016

Hallo,

die Frage ist noch aktuell, kann ich davon ausgehen das es nicht geht oder? Oder kann ich bewirken das ich es in einem neuem Kalender eintrage?

Und noch eine Ergänzung: Wie gebe ich die genaue Uhrzeit an. Aktuell sieht der Code wie folgt aus.

Code:

Sub Terminversand_dozent()

'#### Variablen definieren

s_location = Termin.TextBox4.Value
s_beginn = TextBox1.text
s_ende = TextBox2.text
s_mandant = ComboBox1.Value

'#### Zeitprogramm für Uhrzeiten suchen

z_b_r = ThisWorkbook.Worksheets("Einstellungen").Range("zeitprogramme_anfang").Row
z_e_r = ThisWorkbook.Worksheets("Einstellungen").Range("zeitprogramme_ende").Row
z_r = z_e_r - z_b_r - 1

d_e = ThisWorkbook.Worksheets("Dozenten").UsedRange.SpecialCells(xlCellTypeLastCell).Row

For n = 1 To d_e

If ThisWorkbook.Worksheets("Dozenten").Cells(n, 2).Value = Termin.ComboBox4.Value Then
m_e = ThisWorkbook.Worksheets("Dozenten").Cells(n, 4).Value
m_a = ThisWorkbook.Worksheets("Dozenten").Cells(n, 6).Value
End If

Next n

For i = 1 To z_r
With ThisWorkbook.Worksheets("Einstellungen")
letztespalte = .Cells(z_b_r + i, 100).End(xlToLeft).Column

If .Cells(z_b_r + i, 1).Value = Me.ComboBox5.Value Then
s_beginn_u = .Cells(z_b_r + i, 2).Value
s_ende_u = .Cells(z_b_r + i, letztespalte).Value
End If

End With
Next i

'#### E-Mail Erstellung

Dim outApp
Dim outApptmt
Dim outMail

'Absender einrichten

Set outApp = CreateObject("Outlook.Application")
Set outApptmt = outApp.CreateItem(1)
With outApptmt
.Subject = "Schulungstermin" & "_" & s_location & "_" & s_mandant
.Start = s_beginn & s_beginn_u
.End = s_ende & s_ende_u
.AllDayEvent = True
.ReminderMinutesBeforeStart = 1440
.Location = s_location
.MeetingStatus = 1 '1=olMeeting
.Save

Set outMail = .ForwardAsVcal

outMail.To = m_e
outMail.Body = m_a & " " & Termin.ComboBox4.Value & vbCrLf & vbCrLf & "" _
& vbCrLf & "" _
& "dieser E-Mail beiliegend finden Sie den neuen Schulungstermin. Ich wünsche Ihnen viel Erfolg." & vbCrLf & vbCrLf & "" _
& vbCrLf & "" _
& vbCrLf & ThisWorkbook.Worksheets("Einstellungen").Range("signatur").Value
outMail.Subject = "Schulungstermin" & "_" & s_location & "_" & s_mandant
outMail.Send

End With

Set outApptmt = Nothing
Set outApp = Nothing

If ThisWorkbook.Worksheets("Einstellungen").Range("hinweis_sieben").Value = "WAHR" Then
MsgBox "Der Termin wurde erfolgreich versand."
End If

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

Wie kann ich den Absender einrichten? Ich weiss man kann das E-Mail Konto ansprechen aber wie ging dies noch einmal?

Danke Gruss

skidrow · 16. Januar 2016

Ich nutze selber kein Outlook, aber ist es vllt wie bei CSV Dateien, das die eine bestimmte Art haben wie sie aufgebaut sins? Wenn ja, kannst du so einen Termin ja mal mit Excel öffnen und das überprüfen. Dann könnte man in VBA in dieser Art eine Datei erstellen die der gegenüber in Outlook als Termin eintragen kann.

skidrow · 16. Januar 2016

Ich verstehe das so, das du den Termin ja mit Outlook ertellst (über VBA) dann könntest du den nach erstellen und versenden auch e"infach" wieder löschen lassen

Me_and_my_Monk · 16. Januar 2016

Ja werde es so versuchen müssen. Mal einlesen, danke.

Me_and_my_Monk · 16. Januar 2016

Okay, war doch einfach.

Code:

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

Gruss

skidrow · 16. Januar 2016

Das ist ja echt einfach *Smilie Schön das du es gepackt hast! Bin leider nicht so der Crack in VBA

Office: Termin versenden

Termin versenden

Termin versenden

Termin versenden

Termin versenden - Similar Threads - Termin versenden

Mail mit Termin versenden der beim Empfänger im Kalender eingetragen wird.

outlook Termin versenden Fehler 287

Aus Exceldaten Outlook-Termin erstellen und Versenden

Outlook Termineinladungen verzögert versenden

Frage: Terminplanung aus Excel - Termine in outlook automatisiert versenden?

Outlook 2013 versendet keine Termine mehr

Problem beim versenden von Terminen