Je développe sous windev (ba oui...) et j'ai besoin de créer des rendez vous
sous outlook 2003 automatiquement par simple exportation de données à partir
d'un fichier HyperFile, voire TXT si outlook ne tolère pas HF.
J'exporterai le SUJET, les commentaires, dateDebut, DateFin, HeureDebut,
HeureFin, ... les principales propriétés d'un rendez vous...
Je connais pas trop bien VBA, quelqu'un pourrait me donner la marche a
suivre ?
Je développe sous windev (ba oui...) et j'ai besoin de créer des rendez vous sous outlook 2003 automatiquement par simple exportation
Sub AjoutRDV()
Dim AppliOutlook As Outlook.Application Dim NouveauRDV As Outlook.AppointmentItem
Set AppliOutlook = New Outlook.Application Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem)
With NouveauRDV .Subject = "Test Nouveau RDV" .Location = "lieu RDV" .Start = #2/18/2003 6:00:00 PM# .Duration = 90 .ReminderMinutesBeforeStart = 45 .BusyStatus = olOutOfOffice .Body = "faut être à l'heure" .Sensitivity = olPrivate .Save '.Display End With
End Sub
Cordialement @+lolo
Cmoi
Ba ça c'est du sur mesure ! mais ou faut il mettre ce code ? La rubrique WITH renvoie les propriétés qu'il faut remplir : faut il mettre des variables à la place du texte. ?
Merci
"-=lolol=-" a écrit dans le message de news: %
Bonjour Cmoi,
Je développe sous windev (ba oui...) et j'ai besoin de créer des rendez vous sous outlook 2003 automatiquement par simple exportation
Sub AjoutRDV()
Dim AppliOutlook As Outlook.Application Dim NouveauRDV As Outlook.AppointmentItem
Set AppliOutlook = New Outlook.Application Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem)
With NouveauRDV .Subject = "Test Nouveau RDV" .Location = "lieu RDV" .Start = #2/18/2003 6:00:00 PM# .Duration = 90 .ReminderMinutesBeforeStart = 45 .BusyStatus = olOutOfOffice .Body = "faut être à l'heure" .Sensitivity = olPrivate .Save '.Display End With
End Sub
Cordialement @+lolo
Ba ça c'est du sur mesure !
mais ou faut il mettre ce code ?
La rubrique WITH renvoie les propriétés qu'il faut remplir : faut il mettre
des variables à la place du texte. ?
Merci
"-=lolol=-" <polytek@SANSPUBfree.fr> a écrit dans le message de news:
%239V702K4GHA.324@TK2MSFTNGP05.phx.gbl...
Bonjour Cmoi,
Je développe sous windev (ba oui...) et j'ai besoin de créer des
rendez vous sous outlook 2003 automatiquement par simple exportation
Sub AjoutRDV()
Dim AppliOutlook As Outlook.Application
Dim NouveauRDV As Outlook.AppointmentItem
Set AppliOutlook = New Outlook.Application
Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem)
With NouveauRDV
.Subject = "Test Nouveau RDV"
.Location = "lieu RDV"
.Start = #2/18/2003 6:00:00 PM#
.Duration = 90
.ReminderMinutesBeforeStart = 45
.BusyStatus = olOutOfOffice
.Body = "faut être à l'heure"
.Sensitivity = olPrivate
.Save
'.Display
End With
Ba ça c'est du sur mesure ! mais ou faut il mettre ce code ? La rubrique WITH renvoie les propriétés qu'il faut remplir : faut il mettre des variables à la place du texte. ?
Merci
"-=lolol=-" a écrit dans le message de news: %
Bonjour Cmoi,
Je développe sous windev (ba oui...) et j'ai besoin de créer des rendez vous sous outlook 2003 automatiquement par simple exportation
Sub AjoutRDV()
Dim AppliOutlook As Outlook.Application Dim NouveauRDV As Outlook.AppointmentItem
Set AppliOutlook = New Outlook.Application Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem)
With NouveauRDV .Subject = "Test Nouveau RDV" .Location = "lieu RDV" .Start = #2/18/2003 6:00:00 PM# .Duration = 90 .ReminderMinutesBeforeStart = 45 .BusyStatus = olOutOfOffice .Body = "faut être à l'heure" .Sensitivity = olPrivate .Save '.Display End With
End Sub
Cordialement @+lolo
-=lolol=-
Bonjour Cmoi,
mais ou faut il mettre ce code ?
Dans outlook, ouvre l'éditeur vba (alt + F11), insert un module, colle ce code, ferme et enregistre les modifs.
La rubrique WITH renvoie les propriétés qu'il faut remplir : faut il mettre des variables à la place du texte. ?
Non, width permet de faire plusieurs choses avec le même objet, il allège l'écriture, on aurait pu écrire : ... Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem) NouveauRDV.Subject = "Test Nouveau RDV" NouveauRDV.Location = "lieu RDV" NouveauRDV.Start = #2/18/2003 6:00:00 PM# NouveauRDV.Duration = 90 ...
Pour remplir les champs, suivant les cas, tu peux aussi passer par des variables :
Dim Lobjet as string Lobjet = "Test Nouveau RDV" NouveauRDV.Subject = Lobjet
hth @+lolo
Bonjour Cmoi,
mais ou faut il mettre ce code ?
Dans outlook, ouvre l'éditeur vba (alt + F11), insert un module, colle ce
code, ferme et enregistre les modifs.
La rubrique WITH renvoie les propriétés qu'il faut remplir : faut il
mettre des variables à la place du texte. ?
Non, width permet de faire plusieurs choses avec le même objet, il allège
l'écriture, on aurait pu écrire :
...
Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem)
NouveauRDV.Subject = "Test Nouveau RDV"
NouveauRDV.Location = "lieu RDV"
NouveauRDV.Start = #2/18/2003 6:00:00 PM#
NouveauRDV.Duration = 90
...
Pour remplir les champs, suivant les cas, tu peux aussi passer par des
variables :
Dim Lobjet as string
Lobjet = "Test Nouveau RDV"
NouveauRDV.Subject = Lobjet
Dans outlook, ouvre l'éditeur vba (alt + F11), insert un module, colle ce code, ferme et enregistre les modifs.
La rubrique WITH renvoie les propriétés qu'il faut remplir : faut il mettre des variables à la place du texte. ?
Non, width permet de faire plusieurs choses avec le même objet, il allège l'écriture, on aurait pu écrire : ... Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem) NouveauRDV.Subject = "Test Nouveau RDV" NouveauRDV.Location = "lieu RDV" NouveauRDV.Start = #2/18/2003 6:00:00 PM# NouveauRDV.Duration = 90 ...
Pour remplir les champs, suivant les cas, tu peux aussi passer par des variables :
Dim Lobjet as string Lobjet = "Test Nouveau RDV" NouveauRDV.Subject = Lobjet
hth @+lolo
Oliv'
*-=lolol=- que je salut a écrit *:
Bonjour Cmoi,
mais ou faut il mettre ce code ?
Dans outlook, ouvre l'éditeur vba (alt + F11), insert un module, colle ce code, ferme et enregistre les modifs.
Oui mais ca ne répond plus à la demande initiale me semble t'il de développement à partir de windev
Cmoi doit pouvoir ajouter une référénce vers outlook dans son windev et adapter ton code à son langage.
http://www.delphifr.com/gma/source/Outlook
ou alors faire un vbscript peut être.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
La rubrique WITH renvoie les propriétés qu'il faut remplir : faut il mettre des variables à la place du texte. ?
Non, width permet de faire plusieurs choses avec le même objet, il allège l'écriture, on aurait pu écrire : ... Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem) NouveauRDV.Subject = "Test Nouveau RDV" NouveauRDV.Location = "lieu RDV" NouveauRDV.Start = #2/18/2003 6:00:00 PM# NouveauRDV.Duration = 90 ...
Pour remplir les champs, suivant les cas, tu peux aussi passer par des variables :
Dim Lobjet as string Lobjet = "Test Nouveau RDV" NouveauRDV.Subject = Lobjet
hth @+lolo
*-=lolol=- <polytek@SANSPUBfree.fr> que je salut a écrit *:
Bonjour Cmoi,
mais ou faut il mettre ce code ?
Dans outlook, ouvre l'éditeur vba (alt + F11), insert un module,
colle ce code, ferme et enregistre les modifs.
Oui mais ca ne répond plus à la demande initiale me semble t'il de
développement à partir de windev
Cmoi doit pouvoir ajouter une référénce vers outlook dans son windev et
adapter ton code à son langage.
http://www.delphifr.com/gma/source/Outlook
ou alors faire un vbscript peut être.
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
La rubrique WITH renvoie les propriétés qu'il faut remplir : faut il
mettre des variables à la place du texte. ?
Non, width permet de faire plusieurs choses avec le même objet, il
allège l'écriture, on aurait pu écrire :
...
Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem)
NouveauRDV.Subject = "Test Nouveau RDV"
NouveauRDV.Location = "lieu RDV"
NouveauRDV.Start = #2/18/2003 6:00:00 PM#
NouveauRDV.Duration = 90
...
Pour remplir les champs, suivant les cas, tu peux aussi passer par des
variables :
Dim Lobjet as string
Lobjet = "Test Nouveau RDV"
NouveauRDV.Subject = Lobjet
Dans outlook, ouvre l'éditeur vba (alt + F11), insert un module, colle ce code, ferme et enregistre les modifs.
Oui mais ca ne répond plus à la demande initiale me semble t'il de développement à partir de windev
Cmoi doit pouvoir ajouter une référénce vers outlook dans son windev et adapter ton code à son langage.
http://www.delphifr.com/gma/source/Outlook
ou alors faire un vbscript peut être.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
La rubrique WITH renvoie les propriétés qu'il faut remplir : faut il mettre des variables à la place du texte. ?
Non, width permet de faire plusieurs choses avec le même objet, il allège l'écriture, on aurait pu écrire : ... Set NouveauRDV = AppliOutlook.CreateItem(olAppointmentItem) NouveauRDV.Subject = "Test Nouveau RDV" NouveauRDV.Location = "lieu RDV" NouveauRDV.Start = #2/18/2003 6:00:00 PM# NouveauRDV.Duration = 90 ...
Pour remplir les champs, suivant les cas, tu peux aussi passer par des variables :
Dim Lobjet as string Lobjet = "Test Nouveau RDV" NouveauRDV.Subject = Lobjet
hth @+lolo
-=lolol=-
Salut Oliv',
Oui mais ca ne répond plus à la demande initiale me semble t'il de développement à partir de windev
hum, j'avais cru comprendre qu'il voulait le faire en vba ... wait and see :-)
Amicalement, @+lolo (qui connait rien à windev)
Salut Oliv',
Oui mais ca ne répond plus à la demande initiale me semble t'il de
développement à partir de windev
hum, j'avais cru comprendre qu'il voulait le faire en vba ...
wait and see :-)
Oui mais ca ne répond plus à la demande initiale me semble t'il de développement à partir de windev
hum, j'avais cru comprendre qu'il voulait le faire en vba ... wait and see :-)
Amicalement, @+lolo (qui connait rien à windev)
Pareil , mais il parait que c'est vraiment très bien pour développer .
See you
Oliv'
-=lolol=-
Bonjour Oliv',
@+lolo (qui connait rien à windev)
Pareil , mais il parait que c'est vraiment très bien pour développer .
Il parait ... je note donc sur mon planning de regarder ce qu'on peut faire avec windev ... pas de bol, je n'ai pas de plage libre avant le 10-01-2012 :-(
@+lolo
Bonjour Oliv',
@+lolo (qui connait rien à windev)
Pareil , mais il parait que c'est vraiment très bien pour développer .
Il parait ... je note donc sur mon planning de regarder ce qu'on peut faire
avec windev ... pas de bol, je n'ai pas de plage libre avant le 10-01-2012
:-(
Pareil , mais il parait que c'est vraiment très bien pour développer .
Il parait ... je note donc sur mon planning de regarder ce qu'on peut faire avec windev ... pas de bol, je n'ai pas de plage libre avant le 10-01-2012 :-(
@+lolo
Cmoi
Le langage Windev est sans aucune comparaison avec VB... Par contre, c'est bcp moins riche en composants, mais c'est pas l'objet du post !
J'ai bien compris comment construire le code VBA, mais je voudrais savoir comment transférer les informations de windev (Objet, DateDebut, Heuredébut, etc ...).
Peut etre qu'il faudrait créer un fichier TXT par exemple dans le quel windev remplit les infos et le code en VB irait lire ce fichier TXT pour construire le rendez vous.
Mais la, ca me fait faire en plus une manip d'importation dans outlook, pas super ...
Le langage Windev est sans aucune comparaison avec VB... Par contre, c'est
bcp moins riche en composants,
mais c'est pas l'objet du post !
J'ai bien compris comment construire le code VBA, mais je voudrais savoir
comment transférer les informations de windev (Objet, DateDebut, Heuredébut,
etc ...).
Peut etre qu'il faudrait créer un fichier TXT par exemple dans le quel
windev remplit les infos et le code en VB irait lire ce fichier TXT pour
construire le rendez vous.
Mais la, ca me fait faire en plus une manip d'importation dans outlook, pas
super ...
Le langage Windev est sans aucune comparaison avec VB... Par contre, c'est bcp moins riche en composants, mais c'est pas l'objet du post !
J'ai bien compris comment construire le code VBA, mais je voudrais savoir comment transférer les informations de windev (Objet, DateDebut, Heuredébut, etc ...).
Peut etre qu'il faudrait créer un fichier TXT par exemple dans le quel windev remplit les infos et le code en VB irait lire ce fichier TXT pour construire le rendez vous.
Mais la, ca me fait faire en plus une manip d'importation dans outlook, pas super ...
Oliv'
*Cmoi que je salut a écrit *:
Le langage Windev est sans aucune comparaison avec VB... Par contre, c'est bcp moins riche en composants, mais c'est pas l'objet du post !
J'ai bien compris comment construire le code VBA, mais je voudrais savoir comment transférer les informations de windev (Objet, DateDebut, Heuredébut, etc ...).
As tu suivi le lien que j'avais mis ?
Je suis sûr que tu trouveras des exemples avec Google
http://www.wdforge.org/modules/newbb/viewtopic.php?topic_idC36&forum&post_id165#forumpost18165 par exemple
il faut je pense utiliser les classes CMapi32 Coutlook Ca dépend si tu est derrière un serveur exchange ou sur des fichiers .pst
Peut etre qu'il faudrait créer un fichier TXT par exemple dans le quel windev remplit les infos et le code en VB irait lire ce fichier TXT pour construire le rendez vous.
Mais la, ca me fait faire en plus une manip d'importation dans outlook, pas super ...
effectivement.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
*Cmoi <cmoi@pub.com> que je salut a écrit *:
Le langage Windev est sans aucune comparaison avec VB... Par contre,
c'est bcp moins riche en composants,
mais c'est pas l'objet du post !
J'ai bien compris comment construire le code VBA, mais je voudrais
savoir comment transférer les informations de windev (Objet,
DateDebut, Heuredébut, etc ...).
As tu suivi le lien que j'avais mis ?
Je suis sûr que tu trouveras des exemples avec Google
http://www.wdforge.org/modules/newbb/viewtopic.php?topic_idC36&forum&post_id165#forumpost18165
par exemple
il faut je pense utiliser les classes CMapi32 Coutlook
Ca dépend si tu est derrière un serveur exchange ou sur des fichiers .pst
Peut etre qu'il faudrait créer un fichier TXT par exemple dans le quel
windev remplit les infos et le code en VB irait lire ce fichier TXT
pour construire le rendez vous.
Mais la, ca me fait faire en plus une manip d'importation dans
outlook, pas super ...
effectivement.
--
--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Le langage Windev est sans aucune comparaison avec VB... Par contre, c'est bcp moins riche en composants, mais c'est pas l'objet du post !
J'ai bien compris comment construire le code VBA, mais je voudrais savoir comment transférer les informations de windev (Objet, DateDebut, Heuredébut, etc ...).
As tu suivi le lien que j'avais mis ?
Je suis sûr que tu trouveras des exemples avec Google
http://www.wdforge.org/modules/newbb/viewtopic.php?topic_idC36&forum&post_id165#forumpost18165 par exemple
il faut je pense utiliser les classes CMapi32 Coutlook Ca dépend si tu est derrière un serveur exchange ou sur des fichiers .pst
Peut etre qu'il faudrait créer un fichier TXT par exemple dans le quel windev remplit les infos et le code en VB irait lire ce fichier TXT pour construire le rendez vous.
Mais la, ca me fait faire en plus une manip d'importation dans outlook, pas super ...
effectivement.
-- -- ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ Have a nice day Oliv' ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
