FAQFAQ   SuchenSuchen   MitgliederlisteMitgliederliste   BenutzergruppenBenutzergruppen   RegistrierenRegistrieren 
 ProfilProfil   Einloggen, um private Nachrichten zu lesenEinloggen, um private Nachrichten zu lesen   LoginLogin 
smartsuitefaq.martinholz.de Foren-Übersicht

Outlook-Kalender-Eintrag mit Script erstellen

 
Neues Thema eröffnen   Neue Antwort erstellen    smartsuitefaq.martinholz.de Foren-Übersicht -> Approach-Scripte
Vorheriges Thema anzeigen :: Nächstes Thema anzeigen  
Autor Nachricht
Logeno
Power-User


Anmeldungsdatum: 17.02.2005
Beiträge: 106
Wohnort: Bingen am Rhein

BeitragVerfasst am: Do 25.11.2010 13:54    Titel: Outlook-Kalender-Eintrag mit Script erstellen Antworten mit Zitat

Hallo Forum,

nachdem meine Approach-Anwendung problemlos Mails (inclusive .adx-, .dbf- und .dbt-Anhängen) per Outlook versenden kann, hätte ich nun gerne die Möglichkeit, einen Kalendereintrag über Approach zu erstellen. Gut wären hierbei folgende Parameter:

Datum, Betreff, Uhrzeit (von/bis), Erinnerungsfunktion

Mir geht es darum, dass ich Patienten nach einem gewissen Zeitraum zurückrufen möchte und dieses gerne automatisiert hätte

Es wäre toll, wenn ich hierzu Hilfestellung bekommen könnte.

Gruß
Michael
_________________
http://www.logeno.de
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Johan
Neuer User


Anmeldungsdatum: 25.05.2008
Beiträge: 4
Wohnort: Winterswijk

BeitragVerfasst am: Mo 01.08.2016 14:43    Titel: Outlook-Kalender-Eintrag mit Script erstellen Antworten mit Zitat

Hallo Michael,

Mit diesen Script muß dass klappen.

Sub Sub1
Dim objOutlook As Variant
Dim apptOutApp As Variant
'Daten aus formular übernehmen
betreft=currentview.body.naam.text
begin=Cdat(currentview.body.datum.text)
tijd=currentview.body.begintijd.text
'Hier wird der zeit zwischen anfangszeit und endzeit berechnet
duur=Str(Hour(Timevalue(currentview.body.begintijd.text)-Timevalue(currentview.body.eindtijd.text))*60+Minute(Timevalue(currentview.body.begintijd.text)-Timevalue(currentview.body.eindtijd.text)))
Set objOutlook = CreateObject("Outlook.Application")
Set apptOutApp = objOutlook.GetNamespace("Mapi").GetDefaultFolder(9).Items.Add
With apptOutApp
.Start = begin+" "+tijd
.Subject = betreft
.Body = "Schönes wetter in die Niederlande"
.Location = ""
.Duration = duur
.ReminderMinutesBeforeStart = 5 'Erinnerung
.ReminderPlaySound = True 'Sound
.ReminderSet = True 'Erinnerung
.Save
End With
End Sub

Schöne Grüße,

Johan
Nach oben
Benutzer-Profile anzeigen Private Nachricht senden
Beiträge der letzten Zeit anzeigen:   
Neues Thema eröffnen   Neue Antwort erstellen    smartsuitefaq.martinholz.de Foren-Übersicht -> Approach-Scripte Alle Zeiten sind GMT + 1 Stunde
Seite 1 von 1

 
Gehe zu:  
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht 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.


Powered by phpBB © 2001, 2002 phpBB Group
Protected by Anti-Spam ACP