Macro : Erreur d'exécution 438...

[roidurif]

Bonjour,

J'ai deux boites dans une meme messagerie, (Boite personnelle et BAL générique)

Lors de l'execution de la macro dans outlook 2007 vba, j'ai une erreur 438 (Propiété ou methode non gérée par cet objet) au niveau de la ligne ci dessous,
lorsque je veux indiquer l'adresse de l'emtteur (De: boite-BAL@adress.com)

Item.From = Ad

Je ne comprends pas pourquoi cela ne veux pas prendre cette adresse.

Sub ResolveName()
	Dim myOlApp As Outlook.Application
	Dim myNamespace As Outlook.NameSpace
	Dim myRecipient As Outlook.Recipient
	Dim CalendarFolder As Outlook.MAPIFolder
	Set myOlApp = CreateObject("Outlook.Application")
	Set myNamespace = myOlApp.GetNamespace("MAPI")
	'Set myRecipient = myNamespace.CreateRecipient("Dan Wilson")
	'myRecipient.Resolve
	'If myRecipient.Resolved Then
		Call ShowCalendar(myNamespace, myRecipient)
	'End If
End Sub

Sub ShowCalendar(myNamespace, myRecipient)
  Dim Ad As String
    
         Set MyMail = myRecipient.Items
     
     longueur = MyMail.Count
     Debug.Print longueur
     
For Each Item In MyMail 'i = 1 To longueur
     
	'Set myItem = myRecipient.Items(i)
        
        Debug.Print Item.SentOnBehalfOfName
        If Item.SentOnBehalfOfName = "Centre appel" Then
        Ad = "boite-BAL@adress.com"
        Item.ReplyAll
        'On Error Resume Next
        Item.From = Ad
        Item.To = Item.SentOnBehalfOfName
        Item.Display
        'Set LeMail = Application.CreateItemFromTemplate("C:\Users\CPE125\AppData\Roaming\Microsoft\Templates\Confirmation mail.oft")
        'LeMail.Subject = "Confirmation de votre mail" '& vbCrLf & LeMail
        
       ' LeMail.To = Item.SentOnBehalfOfName

        'LeMail.Display
        'Item.Move myNamespace.Folders("Boîte aux lettres - Admin").Folders("DEMANDES").Folders("EN COURS")
        End If
        
Next Item

Deuxieme chose je souhaite executer automatiquement cette macro toute les minutes, comment dois je proceder dans outlook 2007 vba?

Merci pour votre aide