Termin in Access erstellen, von Outlook versenden

Computer: Software & Programmierung Microsoft Access
#1

Hallo!

Ich will einen Termin in Outlook eintragen. Das funktioniert. Aber ich will auch andere Teilnehmer einladen. In der Microsoft-Hilfe muss dazu immer der Teilnehmer bereits in den Kontakten gespeichert sein. Wenn er das aber nicht ist?:

Gespeicherter Kontakt:
sentInvite = sentTo.Add(„David Junca“)

Will ich machen:
sentInvite = sentTo.Add(„[email protected]“)

Da kommt dann sofort LZF 91:
Objektvariable oder With-Blockvariable nicht festgelegt.

Der ganze Code:
Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem
Set outobj = CreateObject(„outlook.application“)
Set outappt = outobj.CreateItem(olAppointmentItem)
With outappt
.start = Me!Datum & " " & Me.VonZeit
.duration = Me!Dauer
.Subject = Me!ANR.Column(1)
If Not IsNull(Me!AnwenderID.Column(1)) Then .Body = Me!AnwenderID.Column(1)
If Not IsNull(Me!RaumID.Column(2)) Then .location = Me!RaumID.Column(2)
If Me!ApptReminder Then
.ReminderMinutesBeforeStart = 5 'Me!ReminderMinutes
.ReminderSet = True
End If

If Not IsNull(Me.AnwenderID.Column(2)) Then .Recipients.Add (Me.AnwenderID.Column(1))
Dim sentTo As Outlook.Recipients ’ = .Recipients
Dim sentInvite As Outlook.Recipient
sentInvite = sentTo.Add(„[email protected]“) 'EMail-Adresse des Adressaten
sentInvite.Type = Outlook.OlMeetingRecipientType.olRequired
sentTo.ResolveAll
.Save
.Display (True)
End With

Bitte um Hilfe und vielen Dank im Voraus!
Martin

#2

Hallo Martin,
Outlook übersteigt leider meine Kenntnisse.
Gruß
Vincenz

#3

Hallo!
Tut mir Leid, aber das ist wohl eher eine Outlook-Frage als eine Access-Frage.
Schöne Grüße
meusbur2

#4

Hallo Martin
Ich programmiere zwar viel mit Outlook in VBA, aber Meeting Einladungen habe noch nie realisiert. Das Problem hat mich interessiert und ich habe mich darin einzuarbeiten versucht, war mir aber zu komplex. Vielleicht als Hinweis: Wenn „Me.AnwenderID.Column(1)“ eine E-Mail Adresse enthält, dann akzeptiert er diese als Recipient auch wenn sie nicht in den OutlookKontakten ist.
Sorry und Gruss
Fonti46

#5

Sorry in der Programmierung bin ich leider nicht so tief drin

Gruß

Roman

#6

Grüß Gott,

Dim outobj As Outlook.Application
Dim outappt As Outlook.AppointmentItem

du solltest immer alle DIM Anweisungen an den Anfang des Codes bringen!

Dim sentTo As Outlook.Recipients ’ = .Recipients
Dim sentInvite As Outlook.Recipient

also diese auch

sentInvite = sentTo.Add(„[email protected]“)

der Syntax ist: Outlook.Recipients.add „[email protected]“
Versuche es also mal ohne Klammern ()

Grüße aus München
Wolfgang(Netwolf)