|
VB.Net-Forum - Beitragsübersicht - |
|
Von |
Dejan |
Datum |
09. Februar 2015 um 20:53:18 |
Frage |
Hallo zusammen
Ich will über eine Form in Visual Basic einen Termin im Outlook eintragen. Das klappt auch mit diesem Code einwandfrei: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: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(" MeineEmail@hotmail.com", "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? |
|
[ Antwort schreiben | Zurück zum VB.Net-Forum | Forum-Hilfe ] |
|
Letzte Aktualisierung: Sonntag, 13. Dezember 2015 |
|