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.
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
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
Bonjour Pascalle,
essaie avec les propriétés .RequiredAttendees et .OptionalAttendees
"pascallerudulier@gmail.com" 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 = "nom-destinataire@compagnie.com" <= 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.
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
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
Excellent! ca marche, merci beaucoup.
Pascal
On 2 déc, 13:50, Dragan <Dra...@discussions.microsoft.com> wrote:
Bonjour Pascal,
essaie avec les propriétés .RequiredAttendees et .OptionalAttendee s
"pascallerudul...@gmail.com" 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 = "nom-destinata...@compagnie.com" <= 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
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