oscarspatz
Goto Top

Termin mit VBA anlegen - wie füge ich Teilnehmer hinzu?

Hallo!
Ich habe folgendes Problem:
Wir verwenden hier hauptsächlich V2003, ich schreibe gerade ein kleines Makro, welches von einer Excel-Liste (dort stehen die entsprechenden e-Mail Adressen drin) aus einen Termin in Outlook im Kalender einstellen soll.

Vom Prinzip kann ich auch den Termin erstellen - ich bekomm nur nicht die erfolderlichen und optionalen Teilnehmer hinzu.

Dies ist mein vereinfachter Quellcode:
[code]Sub Form_Load()
Dim objApp As Object
Dim termin As Object
Dim Datum As String
Dim Bezeichnung As String

Datum = "17.10.2008"
Bezeichnung = "BESPRECHUNG"

Set objApp = CreateObject("Outlook.Application")
Set termin = objApp.CreateItem(1)

With termin
.ReminderSet = False
.AllDayEvent = False
.Location = "Raum wird noch bekannt gegeben"
.Body = "Ein Termin"
.Duration = 120
.Start = Datum
.Subject = Bezeichnung
.Display
End With

Set termin = Nothing
Set objApp = Nothing

End Sub[/code]

Eine e-Mail aus der Excel-Liste klappt 1a - hier der Code:
[code]Sub email_verteiler()
Dim objApp As Object
Dim objMailItem As Object
Dim Adress As Variant
Dim to_Adress As String, cc_Adress As String
Dim max As Integer
Dim a As Integer
Dim b As Integer
Dim spalte As Integer, spalte_cc As Integer
Dim zeile As Integer
Dim indication As Integer
Dim spalten_e_mail_nummer As Integer
Dim anzahl_termine As Integer

'[...]

'Adressverteiler erzeugen
to_Adress = "to_Adresse"
cc_Adress = "cc_Adresse"

Set objApp = CreateObject("Outlook.Application")
Set objMailItem = objApp.CreateItem(0)

With objMailItem
.To = to_Adress
.CC = cc_Adress
.Subject = "wird noch ergänzt"
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Display
End With

Set objMailItem = Nothing
Set objApp = Nothing

End Sub[/code]

dort bekomm ich eben meine "to"-Adresse und meine "cc"-Adresse hin. Wie kann ich denn dies bei einem Termin umsetzen???

Danke für jede Hilfe...

Gruß

Content-ID: 91242

Url: https://administrator.de/contentid/91242

Ausgedruckt am: 06.11.2024 um 03:11 Uhr

oscarspatz
oscarspatz 04.07.2008 um 14:49:06 Uhr
Goto Top
Hab ne Lsg in nem anderen Forum gefunden....

hier das Detail:
With Termin
.ReminderSet = False
.AllDayEvent = False
.Location = "Raum wird noch bekannt gegeben"
.Body = "Ein Termin"
.Duration = 120
.Start = Datum
.Subject = Bezeichnung
Set myRequiredAttendee = .Recipients.Add("Mail_erf")
myRequiredAttendee.Type = 1
Set myOptionalAttendee = .Recipients.Add("Mail_opt")
myOptionalAttendee.Type = 2
.display
End With