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ß
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ß
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 91242
Url: https://administrator.de/contentid/91242
Ausgedruckt am: 26.11.2024 um 02:11 Uhr
1 Kommentar