MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Access & Datenbanken > Microsoft Access
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 14.01.2018, 11:33   #1
firela112
MOF User
MOF User
Standard Acc2016 - Termin in Outlook Kalender

Hi, hab ein Formular womit man einen Termin in Outlook speichern kann.
Nun das Problem:

1. Es macht den Termin in Outlook auf jedoch nicht mit dem vorgegebenen Datum sondern 1899

2. Es speichert den Termin in den "Hauptkalender" jedoch nicht nicht in den Kalender "Test1" oder "Test"

3. Ist es evtl. möglich, das man den Dialog speichern in Outlook umgeht, und das es den Termin gleich speichert?

Code is:
Code:

Option Compare Database

Private Sub Befehl11_Click()


Set myolApp = Outlook.Application
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar).Folders(Me!Kalender)
Set x = Outlook.Application.CreateItem(olAppointmentItem)
With x
Dim D, S As String
D = Me!Datum
S = Me!Uhrzeit
.Display
.Subject = "Betreff"
.Categories = "Kategorie"
.Location = "Ort"
.Start = S
.ReminderMinutesBeforeStart = 35
End With
End Sub
Tschau
FireLA112
Angehängte Grafiken
Dateityp: jpg Formular.jpg (11,8 KB, 7x aufgerufen)
Dateityp: jpg Unterkalender.jpg (18,9 KB, 5x aufgerufen)
Dateityp: jpg Hauptkalender.jpg (20,9 KB, 7x aufgerufen)
Dateityp: jpg Kalender.jpg (61,6 KB, 6x aufgerufen)
Angehängte Dateien
Dateityp: rar Database111.rar (24,4 KB, 1x aufgerufen)
firela112 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 12:21   #2
Maxel
MOF Guru
MOF Guru
Standard

Unter anderem:

Zitat:

D = Me!Datum

Du speicherst D allerdings nicht in x, sondern nur die Uhrzeit S.

__________________

Viele Grüße von Maxel

Nie aufhören anzufangen,
nie anfangen aufzuhören!
Maxel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 12:32   #3
firela112
Threadstarter Threadstarter
MOF User
MOF User
Jeck

ah ups, übersehen, ok Datum funktioniert jetz, blos Zeit geht no net und die Punkte 2+3 weis i no net.

Geändert von firela112 (14.01.2018 um 12:35 Uhr).
firela112 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 13:04   #4
Maxel
MOF Guru
MOF Guru
Standard

Ergänze folgendes:
Code:

Option Compare Database
Option Explicit 'Stelle dies auch in den Optionen ein
und zeige uns den aktuellen Code.

Zu 2: Ersetze Me!Kalender (woher nimmst du das?) durch "Test1".

__________________

Viele Grüße von Maxel

Nie aufhören anzufangen,
nie anfangen aufzuhören!

Geändert von Maxel (14.01.2018 um 13:11 Uhr).
Maxel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 14:04   #5
firela112
Threadstarter Threadstarter
MOF User
MOF User
Standard

Zu 2: kommt von einem Kombifeld Namens "Kalender"
Code:

Option Compare Database
Option Explicit

Private Sub Befehl11_Click()


Set myolApp = Outlook.Application
Set myNamespace = myolApp.GetNamespace("MAPI")
Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar).Folders(Me!Kalender)
Set x = Outlook.Application.CreateItem(olAppointmentItem)
With x
Dim D, S As String
D = Me!Datum
S = Me!Uhrzeit
.Display
.Subject = "Betreff"
.Categories = "Kategorie"
.Location = "Ort"
.Date = D
.Start = S
.ReminderMinutesBeforeStart = 35
End With
End Sub
vorher ohne Option Explicit is no gegangen jetz nimma ; Jetz kommt Fehler beim Kompilieren: Variable nicht definiert.
Bei:
Code:

Private Sub Befehl11_Click()


Set myolApp = Outlook.Application
Angehängte Dateien
Dateityp: rar Database111.rar (27,8 KB, 3x aufgerufen)

Geändert von firela112 (14.01.2018 um 14:10 Uhr).
firela112 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 14:55   #6
Maxel
MOF Guru
MOF Guru
Standard

Zitat:

vorher ohne Option Explicit is no gegangen jetz nimma ; Jetz kommt Fehler beim Kompilieren: Variable nicht definiert.

Sehr schön! Option Explicit gibt jetzt (einen) Fehler aus, der vorher schon bestand, aber unentdeckt blieb.

Deinen Set-Zuweisungen müssten die entsprechenden Dim-Anweisungen vorausgehen. Sieh dir mal dies an.

__________________

Viele Grüße von Maxel

Nie aufhören anzufangen,
nie anfangen aufzuhören!

Geändert von Maxel (14.01.2018 um 15:10 Uhr).
Maxel ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 15:03   #7
firela112
Threadstarter Threadstarter
MOF User
MOF User
Standard

Hi, des hilft ma leider net viel, da i VBA-Neuling bin und mit Programmierung net sooo gut auskenn.
firela112 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 15:09   #8
Kyron9000
MOF Koryphäe
MOF Koryphäe
Standard

Hallo, FireLA112,
habe es zwar nicht geteste, aber programmatisch würde es mir so besser gefallen...
Code:

Option Compare Database
Option Explicit

Private Sub Befehl11_Click()
Dim myolApp     As Object
Dim myNamespace As Object
Dim myFolder    As Object
Dim x           As Object
    Set myolApp = Outlook.Application
    Set myNamespace = myolApp.GetNamespace("MAPI")
    Set myFolder = myNamespace.GetDefaultFolder(olFolderCalendar).Folders(Me!Kalender)
    Set x = Outlook.Application.CreateItem(olAppointmentItem)
        With x
            Dim D, S As String
                D = Me!Datum
                S = Me!Uhrzeit
                    .Display
                    .Subject = "Betreff"
                    .Categories = "Kategorie"
                    .Location = "Ort"
                    .Date = D
                    .Start = S
                    .ReminderMinutesBeforeStart = 35
        End With
    Set myolApp = Nothing
    Set myNamespace = Nothing
    Set myFolder = Nothing
    Set x = Nothing
End Sub
Ob es so funktioniert, wie du es dir wünscht... kA

__________________

Gruß Alfred
Kyron9000 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 15:11   #9
firela112
Threadstarter Threadstarter
MOF User
MOF User
Standard

OK hab jetz anderen Code gefunden:
Code:

 Dim outApp As Outlook.Application
    Dim outtest As Outlook.AppointmentItem

    Set outApp = New Outlook.Application
    Set outtest = outApp.CreateItem(olAppointmentItem)
    
    With outtest
        .Body = Me!Betreff
        .ReminderMinutesBeforeStart = 60
        .Start = Me!Datum + Me!Uhrzeit
        .Subject = Me!Beschreibung
        .Save
    End With
Der funktioniert. Jetz müsste ich nur noch des hinbringen, dass er den Termin in den richtigen Kalender einfügt, dass ich im Kombifeld Kalender auswähle. Kann mir da einer helfen?

Geändert von firela112 (14.01.2018 um 15:18 Uhr).
firela112 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 16:06   #10
firela112
Threadstarter Threadstarter
MOF User
MOF User
Standard

hab dabei in outlook folgende Struktur (s. Anhang)
Angehängte Grafiken
Dateityp: jpg 1.jpg (21,3 KB, 6x aufgerufen)
firela112 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 16:49   #11
markusxy
MOF Meister
MOF Meister
Standard

Mit CreateItems kannst du nur in den Standard Ordnern Objekte anlegen.
Du musst die Methode Items.add verwenden.
Einfach mal einen Blick in die VBA Hilfe werfen.
markusxy ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 14.01.2018, 17:09   #12
firela112
Threadstarter Threadstarter
MOF User
MOF User
Standard

ok. danke das Wars merce
firela112 ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 17:43 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.