Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
Sub Test_ScriptForwardEquit()
Dim MyItem As MailItem
Set MyItem = ActiveInspector.CurrentItem
ScriptForwardEquit MyItem
End Sub
Sub ScriptForwardEquit(Mymail As MailItem)
'---------------------------------------------------------------------------------------
' Procedure : RepToRec
' Author : Oliv'
' Date : 16/04/2008
' Purpose : script a executer avec une règle pour transférer à 3 personnes
'---------------------------------------------------------------------------------------
'
Static vSuivant As Integer
Dim MailTransfer As Outlook.MailItem
Set MailTransfer = Mymail.Forward
Path_vSuivant = "c:\temp\vsuivant.txt"
If vSuivant = 0 Then ' on ouvre le fichier
On Error Resume Next
Open Path_vSuivant For Input As #1
If Err.Number = 53 Then
vSuivant = 1
'ecrire le fichier
Open Path_vSuivant For Output As #1 ' Ouvre le fichier en écriture.
Print #1, "1"
Close #1
Else
Input #1, vSuivant
' Ferme le fichier avant de l'ouvrir à nouveau dans un autre mode.
Close #1
End If
End If
'choix du destinataire
Select Case vSuivant
Case 1
MailTransfer.Recipients.add "Destinataire1@toto.fr"
Case 2
MailTransfer.Recipients.add "Destinataire2@toto.fr"
Case 3
MailTransfer.Recipients.add "Destinataire3@toto.fr"
End Select
If vSuivant = 3 Then
vSuivant = 1
Else
vSuivant = vSuivant + 1
End If
Open Path_vSuivant For Output As #1 ' Ouvre le fichier en écriture.
Print #1, vSuivant
Close #1
MailTransfer.Display
' MailTransfer.Send
Set Mymail = Nothing
End Sub
MailTransfer.Display
MailTransfer.Send