vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Zippen wie die Profis!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2024
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

VB & Datenbanken
Outlook<kalender 
Autor: look
Datum: 20.06.05 07:40
Hallo

möchte aus meinem Programm einen Termin in Outlook anlegen

weis aber nicht wie ich einen Zugriff auf Outlook Kalender ´bekommen

vieleicht hat dies jemand schon gemacht und kann mir sagen wie das geht.
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Re: Outlook<kalender 
Autor: Prian0815
Datum: 20.06.05 10:58
Hi look, da kann ich helfen,
&#8217;Variablendeklaration für Outlock &#8211; Zugriff
' Outlook als Objekt festlegen
Public myOutlApp As Outlook.Application

' Namespaces für Den aktuellen Arbeitsbereich von Outlook
Public myNameSpace As Outlook.NameSpace

' Der MAPI-Folder legt den Ordner fest (z. B. Kalender)
Public mymapiFolder As mapiFolder

' ApointmentItems sind die einzelnen Einträge(bei Kalender)
Public myappItem As AppointmentItem

' MailItems sind die einzelnen Mails(bei Postein- bzw. Ausgang)
Public mymailItem As MailItem

'Hilfsvariablen für den ApointmentItem - Eintrag
Dim IntervallTyp As String
Dim Zahl As Integer
Dim start As Date
Dim AmPm As String
Dim Zeit As Date

Private Sub Outlook_Termin_erstellen()

Outlook_Termin_erstellen:
' Outlook initialisieren
Set myOutlApp = CreateObject("Outlook.Application")

' Namespace initialisieren
Set myNameSpace = myOutlApp.GetNamespace("MAPI")

' Aktueller User in Outlook ermitteln
AktUser = myNameSpace.CurrentUser

' Ordner setzen, in diesem Fall Calendar
Set mymapiFolder = myNameSpace.GetDefaultFolder(olFolderCalendar)

' Items initialisieren
Set myappItem = myOutlApp.CreateItem(olAppointmentItem)
myappItem.subject = subject
myappItem.start = datelit
myappItem.ReminderMinutesBeforeStart = RMBS
myappItem.ReminderSet = True

' Termin Speichern
myappItem.Save

' alle Objekte abschließen
Set myappItem = Nothing
Set mymapiFolder = Nothing
Set myNameSpace = Nothing
Set myOutlApp = Nothing
End Sub

##############################################################
&#8216; Mail versenden
' Outlock initialisieren
Set myOutlApp = CreateObject("Outlook.Application")

' Namespace initialisieren
Set myNameSpace = myOutlApp.GetNamespace("MAPI")

' Aktueller User in Outlook ermitteln
AktUser = myNameSpace.CurrentUser

' Ordner setzen, in diesem Fall Posteingang
Set mymapiFolder = myNameSpace.GetDefaultFolder(olFolderInbox)

' Items initialisieren
Set mymailItem = myOutlApp.CreateItem(olMailItem)

Set myAttachments = mymailItem.Attachments
myAttachments.Add filename
mymailItem.subject = Firma
'Neue Nachricht speichern
mymailItem.Save
'Nachricht anzeigen
mymailItem.Display

' alle Objekte abschließen
Screen.MousePointer = 1&#8217; Mauszeiger auf Normal(Pfeil) stellen
Set mymailItem = Nothing
Set mymapiFolder = Nothing
Set myNameSpace = Nothing
Set myOutlApp = Nothing


Gruß Armin

P.S.: always look on the bright side of Life!
Themenbaum einblendenGesamtübersicht  |  Zum Thema  |  Suchen

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2024 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel