Bonjour le forum,
j'ai écrit cette macro afin de pouvoir assigner une tâche à une personne sous Outlook.
Elle fonctionne bien (mise à part qu'il faut que je valide plusieurs fois le message d'autorisation d'Outlook).
Mon problème est que je voudrais envoyer cette tâche à plusieurs personnes avec une date de réalisation différente pour chaque personne.
Avez vous une idée.
Merci de votre aide.
Voici mon code:
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Set myItem = myOlApp.CreateItem(olTaskItem)
myItem.Assign
Dim Mess As String
Mess = "Bonjour," & Chr(13)
Mess = Mess & "Vous avez été désigné comme pilote pour au moins une action corrective de la réclamation ci jointe." & Chr(13)
Mess = Mess & "Merci de bien vouloir traiter celle ci dans les meilleurs délais, compléter la date de validation et clôturer votre tâche dans Outlook." & Chr(13)
Mess = Mess & "Cordialement."
Set myDelegate = myItem.Recipients.Add(Range("AC3").Value)
myDelegate.Resolve
If myDelegate.Resolved Then
myItem.Subject = "action corrective suite réclamation"
myItem.Body = Mess
myItem.DueDate = Range("P33") 'échéance
myItem.ReminderTime = True 'Rappel
myItem.Display
myItem.Attachments.Add "S:\Réclamations\" & A & "-" & B & "-" & MaDate & ".xlsm"
myItem.Send
End If
j'ai écrit cette macro afin de pouvoir assigner une tâche à une personne sous Outlook.
Elle fonctionne bien (mise à part qu'il faut que je valide plusieurs fois le message d'autorisation d'Outlook).
Mon problème est que je voudrais envoyer cette tâche à plusieurs personnes avec une date de réalisation différente pour chaque personne.
Avez vous une idée.
Merci de votre aide.
Voici mon code:
Dim myOlApp As New Outlook.Application
Dim myItem As Outlook.TaskItem
Dim myDelegate As Outlook.Recipient
Set myItem = myOlApp.CreateItem(olTaskItem)
myItem.Assign
Dim Mess As String
Mess = "Bonjour," & Chr(13)
Mess = Mess & "Vous avez été désigné comme pilote pour au moins une action corrective de la réclamation ci jointe." & Chr(13)
Mess = Mess & "Merci de bien vouloir traiter celle ci dans les meilleurs délais, compléter la date de validation et clôturer votre tâche dans Outlook." & Chr(13)
Mess = Mess & "Cordialement."
Set myDelegate = myItem.Recipients.Add(Range("AC3").Value)
myDelegate.Resolve
If myDelegate.Resolved Then
myItem.Subject = "action corrective suite réclamation"
myItem.Body = Mess
myItem.DueDate = Range("P33") 'échéance
myItem.ReminderTime = True 'Rappel
myItem.Display
myItem.Attachments.Add "S:\Réclamations\" & A & "-" & B & "-" & MaDate & ".xlsm"
myItem.Send
End If