Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Besprechung Outlook über Access
zurück: Neue Spalten in runtime hinzufügen weiter: sortierung nach auswahlfeld Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Offen Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
JDK66
Gast


Verfasst am:
29. Apr 2014, 12:07
Rufname:

Besprechung Outlook über Access - Besprechung Outlook über Access

Nach oben
       Version: Office 2010

Hi an alle,

ich habe da ein kleines problem. Seit wochen versuche ich über Access den richtigen Account zu wählen und daraus eine Besprechung zu versenden.

Oben habe ich es zwar etwas erwähnt aber hier der Gedanke.

Ich möchte aus meiner Access Datenbank eine Besprechung in Outlook generieren. Alles Funktioniert einwandfrei bis auf dass er jedesmal den falschen Account trifft.
Ich habe zwei Accounts in meinem Outlook einen Standard den ich persönlcih nutze und einen für die Arbeit. Könnt ihr mir da eventuell helfen den richtigen Account auszuwählen.

Code:
Function Besprechung_versenden()


On Error GoTo Err_sCreateMeetingRequest
Dim olAppl As Outlook.Application ' Outlook Application Objekt
Dim olMAPINameSpace As NameSpace ' MAPI Session
Dim olMeetingRequest As AppointmentItem ' Besprechungsanfragen Objekt
Dim olAttendee As Recipient ' Besprechungsanfragenteilnehmer
Dim oAccount As Outlook.Account
Set olAppl = GetObject(, "Outlook.Application")
Set olMeetingRequest = olAppl.CreateItem(olAppointmentItem)
Set olAttendee = olMeetingRequest.Recipients.Add("JD")

With olAttendee
.Type = olRequired
.Resolve
End With
With olMeetingRequest

' 'olMeeting' macht das AppointmentItem
' (Termin, 'CreateItem(olAppointmentItem)' s.o.) zu einem
' MeetingRequest (Besprechungsanfrage)

.MeetingStatus = olMeeting

' Daten einfüllen
.Subject = "Besprechungsanfrage per VBA"

.Location = "Ort"
.Start = #4/29/2014 1:30:00 PM#
.Duration = 90
.Display ' versendet die Besprechnugsanfrage
End With

Set olAttendee = Nothing
Set olMeetingRequest = Nothing
Set olMAPINameSpace = Nothing
Set olAppl = Nothing
Exit Function
Err_sCreateMeetingRequest:
'Objekterstellung durch ActiveX-Komponente nicht möglich (Fehler 429)
If Err = 429 Then ' GetObject schlug fehl, Outlook war noch nicht gestartet Set olAppl = CreateObject("Outlook.Application")
' folgende 2 Zeilen sind nur notwendig bei CreateObject
' bei GetObject besteht bereits eine Outlook Session mit Login
Set olMAPINameSpace = olAppl.GetNamespace("MAPI")
olMAPINameSpace.Logon ' Login mit dem Standard MAPI Profil Resume Next
Else
MsgBox Err
End If

End Function



Dankee Smile
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Access Tabellen & Abfragen: Kategorien aus Outlook Sortieren 1 angeberman 100 23. Jan 2013, 00:00
Gast Kategorien aus Outlook Sortieren
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Tabellen & Abfragen: Access Tabelle ins Outlook exportieren 1 Juliany 78 20. Jan 2013, 19:58
KlausMz Access Tabelle ins Outlook exportieren
Keine neuen Beiträge Access Formulare: Auswahl im Formular Kontakte (wie in Outlook) 0 kOpOwski 193 25. Aug 2012, 22:53
kOpOwski Auswahl im Formular Kontakte (wie in Outlook)
Keine neuen Beiträge Access Tabellen & Abfragen: Access mit Outlook Kontakten verknüpfen (Primärschlüssel) 8 arstom 4137 19. Jan 2012, 03:37
Remy Access mit Outlook Kontakten verknüpfen (Primärschlüssel)
Keine neuen Beiträge Access Formulare: Mail Adressen aus Table/Form ins Outlook Bcc Feld kopieren 0 Fmarmy 586 06. Jul 2011, 16:05
Fmarmy Mail Adressen aus Table/Form ins Outlook Bcc Feld kopieren
Keine neuen Beiträge Access Formulare: Formularfelder per Outlook versenden 5 McBrumm 286 28. Mai 2010, 16:19
Gast Formularfelder per Outlook versenden
Keine neuen Beiträge Access Tabellen & Abfragen: Outlook Tabellen in Acces 2007 0 VBeginner 381 09. März 2010, 10:12
VBeginner Outlook Tabellen in Acces 2007
Keine neuen Beiträge Access Tabellen & Abfragen: Per Button-Klick Outlook Adressbuch öffnen 4 Sessel1234 2099 08. Feb 2010, 12:19
Sessel1234 Per Button-Klick Outlook Adressbuch öffnen
Dieses Thema ist gesperrt, du kannst keine Beiträge editieren oder beantworten. Access Formulare: zugriff auf Word und outlook unter windows 7 2 adamth 1612 27. Nov 2009, 17:55
Gast zugriff auf Word und outlook unter windows 7
Keine neuen Beiträge Access Formulare: Outlook mit Access verknüpfen 2 Tom2000 698 16. Nov 2009, 17:36
Gast Outlook mit Access verknüpfen
Keine neuen Beiträge Access Tabellen & Abfragen: Outlook Kalender in Access mit allen Feldern 2 Gast 1917 07. Feb 2009, 23:27
Willi Wipp Outlook Kalender in Access mit allen Feldern
Keine neuen Beiträge Access Formulare: Termine an Outlook Kalender übergeben. 1 zimbo 883 23. Aug 2008, 21:22
Katsche Termine an Outlook Kalender übergeben.
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum