Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

assigner une tache sous outlook

2 réponses
Avatar
pascallerudulier
Bonsoir,

J'ai un code que j'utilise peu souvent que je souhaiterais ameliorer
(en meme que je le partage ici):

Private Sub outlook_link_Click() <=3D ceci est 'colle' a un bouton
sur un formulaire

On Error GoTo RV_Erreur
Dim OL_App As Outlook.Application <=3D j'avais deja ecrit a
propos d'une erreur, c'est la qu'elle se situait
Set OL_App =3D New Outlook.Application
Dim OL_RV As Outlook.AppointmentItem
Set OL_RV =3D OL_App.CreateItem(olAppointmentItem)

With OL_RV
.Start =3D Me.Texte1
.Duration =3D 60
.Subject =3D "Inspection scheduled"
.Body =3D Me.Texte46 & vbCrLf & _ <=3D ici ce sont
les contenus de champs qui s'ajoutent
Me.Texte48 & vbCrLf & _ et
viennent dans le corps du message/tache.
Me.Texte44 & vbCrLf & _
Me.Texte50 & vbCrLf
'.To =3D "nom-destinataire@compagnie.com" <=3D ici je
souhaiterais mettre l'adresse du destinataire
.Location =3D "site"
.AllDayEvent =3D False
.ReminderSet =3D True
.Importance =3D olImportanceHigh
.Save
End With
Set OL_RV =3D Nothing
Set OL_App =3D Nothing
Exit Sub
RV_Erreur:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Set OL_RV =3D Nothing
Set OL_App =3D Nothing
End Sub

' .Start =3D Date du rendez-vous
' .Duration =3D dur=E9e du rendez-vous en minutes
' .Subject =3D Sujet du rendez-vous
' .Body =3D ordre du jour (corps du message)
' .Location =3D lieu du rendez-vous
' .AllDayEvent =3D journ=E9e enti=E8re
' .ReminderSet =3D rappel 1/4h avant le rendez-vous
' .Importance =3D importance du rendez-vous
' .Save =3D enregistrer le rendez-vous


C'est a la ligne ou j'ai ecrit "ici je souhaiterais mettre l'adresse
du destinataire" que ca ne fonctionne pas. Quelqu'un aurait-il une
suggestion? Sans cette ligne, la tache me parvient; je pourrais donc
l'assigner depuis mon calendrier Outlook mais ca m'economiserait une
manip en codant proprement.

Merci d'avance pour toute idee/suggestion.

Pascal

*: pardon pour le manque d'accent, clavier QWERTY

2 réponses

Avatar
Dragan
Bonjour Pascalle,
essaie avec les propriétés .RequiredAttendees et .OptionalAttendees

"" a écrit :

Bonsoir,

J'ai un code que j'utilise peu souvent que je souhaiterais ameliorer
(en meme que je le partage ici):

Private Sub outlook_link_Click() <= ceci est 'colle' a un bouton
sur un formulaire

On Error GoTo RV_Erreur
Dim OL_App As Outlook.Application <= j'avais deja ecrit a
propos d'une erreur, c'est la qu'elle se situait
Set OL_App = New Outlook.Application
Dim OL_RV As Outlook.AppointmentItem
Set OL_RV = OL_App.CreateItem(olAppointmentItem)

With OL_RV
.Start = Me.Texte1
.Duration = 60
.Subject = "Inspection scheduled"
.Body = Me.Texte46 & vbCrLf & _ <= ici ce sont
les contenus de champs qui s'ajoutent
Me.Texte48 & vbCrLf & _ et
viennent dans le corps du message/tache.
Me.Texte44 & vbCrLf & _
Me.Texte50 & vbCrLf
'.To = "" <= ici je
souhaiterais mettre l'adresse du destinataire
.Location = "site"
.AllDayEvent = False
.ReminderSet = True
.Importance = olImportanceHigh
.Save
End With
Set OL_RV = Nothing
Set OL_App = Nothing
Exit Sub
RV_Erreur:
MsgBox "Error " & Err.Number & vbCrLf & Err.Description
Set OL_RV = Nothing
Set OL_App = Nothing
End Sub

' .Start = Date du rendez-vous
' .Duration = durée du rendez-vous en minutes
' .Subject = Sujet du rendez-vous
' .Body = ordre du jour (corps du message)
' .Location = lieu du rendez-vous
' .AllDayEvent = journée entière
' .ReminderSet = rappel 1/4h avant le rendez-vous
' .Importance = importance du rendez-vous
' .Save = enregistrer le rendez-vous


C'est a la ligne ou j'ai ecrit "ici je souhaiterais mettre l'adresse
du destinataire" que ca ne fonctionne pas. Quelqu'un aurait-il une
suggestion? Sans cette ligne, la tache me parvient; je pourrais donc
l'assigner depuis mon calendrier Outlook mais ca m'economiserait une
manip en codant proprement.

Merci d'avance pour toute idee/suggestion.

Pascal

*: pardon pour le manque d'accent, clavier QWERTY




Avatar
pascallerudulier
Excellent! ca marche, merci beaucoup.
Pascal

On 2 déc, 13:50, Dragan wrote:
Bonjour Pascal,
 essaie avec les propriétés .RequiredAttendees et .OptionalAttendee s

"" a écrit :

> Bonsoir,

>   J'ai un code que j'utilise peu souvent que je souhaiterais ameliore r
> (en  meme que je le partage ici):

> Private Sub outlook_link_Click()       <= ceci est 'colle' a un bouton
> sur un formulaire

>     On Error GoTo RV_Erreur
>     Dim OL_App As Outlook.Application    <= j'avais deja ecri t a
> propos d'une erreur, c'est la qu'elle se situait
>     Set OL_App = New Outlook.Application
>     Dim OL_RV As Outlook.AppointmentItem
>     Set OL_RV = OL_App.CreateItem(olAppointmentItem)

>     With OL_RV
>         .Start = Me.Texte1
>         .Duration = 60
>         .Subject = "Inspection scheduled"
>         .Body = Me.Texte46 & vbCrLf & _                <= ici ce sont
> les contenus de champs qui s'ajoutent
>                 Me.Texte48 & vbCrLf & _                         et
> viennent dans le corps du message/tache.
>                 Me.Texte44 & vbCrLf & _
>                 Me.Texte50 & vbCrLf
>         '.To = ""     <= ici je
> souhaiterais mettre l'adresse du destinataire
>         .Location = "site"
>         .AllDayEvent = False
>         .ReminderSet = True
>         .Importance = olImportanceHigh
>         .Save
>     End With
>     Set OL_RV = Nothing
>     Set OL_App = Nothing
>     Exit Sub
> RV_Erreur:
>     MsgBox "Error " & Err.Number & vbCrLf & Err.Description
>     Set OL_RV = Nothing
>     Set OL_App = Nothing
> End Sub

> ' .Start = Date du rendez-vous
> ' .Duration = durée du rendez-vous en minutes
> ' .Subject = Sujet du rendez-vous
> ' .Body = ordre du jour (corps du message)
> ' .Location = lieu du rendez-vous
> ' .AllDayEvent = journée entière
> ' .ReminderSet = rappel 1/4h avant le rendez-vous
> ' .Importance = importance du rendez-vous
> ' .Save = enregistrer le rendez-vous

> C'est a la ligne ou j'ai ecrit "ici je souhaiterais mettre l'adresse
> du destinataire" que ca ne fonctionne pas. Quelqu'un aurait-il une
> suggestion? Sans cette ligne, la tache me parvient; je pourrais donc
> l'assigner depuis mon calendrier Outlook mais ca m'economiserait une
> manip en codant proprement.

> Merci d'avance pour toute idee/suggestion.

> Pascal

> *: pardon pour le manque d'accent, clavier QWERTY