Hallo zusammen
Ich will über eine Form in Visual Basic einen Termin im Outlook eintragen.
Das klappt auch mit diesem Code einwandfrei:
Wenn ich aber mehrere Konten im Outlook habe klappt das nicht, weil ich ja angeben muss in welches Konto ich den Termin speichern will.
Ich habe herausgefunden das dass mit Outlook.Namespace geht und habe folgenden Code ausprobiert:
Bekomme aber eine Fehlermeldung:
System.Runtime.InteropServices.COMException
Additional information: Der Server steht nicht zur Verfügung. Falls dieser Zustand fortbesteht, wenden Sie sich bitte an Ihren Administrator.
Was mache ich falsch?
Ich will über eine Form in Visual Basic einen Termin im Outlook eintragen.
Das klappt auch mit diesem Code einwandfrei:
VB.NET-Quellcode
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim OutApp
- Dim apptOutApp
- OutApp = CreateObject("Outlook.Application")
- apptOutApp = OutApp.CreateItem(1)
- With apptOutApp
- .Start = "12.04.2015" & " 18:00"
- 'Termininfo
- .Subject = "Test"
- 'oder der Betreff steht in der Spalte rechts von den Terminen
- 'Zusätzlicher Text
- .Body = "Text"
- 'ort
- .Location = "Testort"
- .Duration = "19"
- 'Erinnerung1
- .ReminderMinutesBeforeStart = 10
- 'mit Sound :-)
- .ReminderPlaySound = True
- 'Erinnerung wiederholen
- .ReminderSet = True
- 'Termin speichern
- .Save()
- End With
- apptOutApp = Nothing
- OutApp = Nothing
- MsgBox("Alles gut")
- End Sub
Wenn ich aber mehrere Konten im Outlook habe klappt das nicht, weil ich ja angeben muss in welches Konto ich den Termin speichern will.
Ich habe herausgefunden das dass mit Outlook.Namespace geht und habe folgenden Code ausprobiert:
VB.NET-Quellcode
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Dim OutApp
- Dim apptOutApp
- OutApp = CreateObject("Outlook.Application")
- Dim myNameSpace As Microsoft.Office.Interop.Outlook.NameSpace
- myNameSpace = OutApp.GetNamespace("MAPI")
- myNameSpace.Logon("Email-Adresse", "MeinEmailPasswort", False, False)
- apptOutApp = OutApp.CreateItem(1)
- With apptOutApp
- .Start = "12.04.2013" & " 18:00"
- 'Termininfo
- .Subject = "Test"
- 'oder der Betreff steht in der Spalte rechts von den Terminen
- 'Zusätzlicher Text
- .Body = "Text"
- 'ort
- .Location = "Testort"
- .Duration = "19"
- 'Erinnerung1
- .ReminderMinutesBeforeStart = 10
- 'mit Sound :-)
- .ReminderPlaySound = True
- 'Erinnerung wiederholen
- .ReminderSet = True
- 'Termin speichern
- .Save()
- End With
- apptOutApp = Nothing
- OutApp = Nothing
- myNameSpace = Nothing
- MsgBox("Alles gut")
- End Sub
Bekomme aber eine Fehlermeldung:
System.Runtime.InteropServices.COMException
Additional information: Der Server steht nicht zur Verfügung. Falls dieser Zustand fortbesteht, wenden Sie sich bitte an Ihren Administrator.
Was mache ich falsch?
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dejanstar“ ()