Cliquer sur lien dans un mail recu

Bonjour,

Voila je reçois tous les jours des mails avec des commandes en pièce jointe,
dans chaque mail il y a un lien sur laquelle je dois cliquer afin que le client sache que j'ai bien traité sa commande.
Ce lien va mettre a jour une base de donnée sur notre serveur web.
Je cherche a réaliser une macro qui pourrait cliquer sur ce lien ( "ENVOYER LA CONFIRMATION") des la réception de ce dernier.
J'utilise outlook 2003

Aujourd'hui ma macro extrait la pièce jointe et la place dans un répertoire afin que notre serveur puisse la traité
voici la macro:

Sub adtmedia()
Private Sub Application_NewMail()

'Lance la procédure à la réception d'un mail
COMMANDE

End Sub

Sub COMMANDE()
'Création des variables
Dim objOutlook As Outlook.Application
Dim olns As Outlook.NameSpace
Dim mItem As Outlook.MailItem
Dim att As Outlook.Attachment
Dim fld As Outlook.MAPIFolder
Dim fldc As Outlook.MAPIFolder
Dim Repertoire, NomDeFichier, Taille, Emetteur As String
Dim subject_autorise As String

On Error GoTo errorhandler

'Extraction automatique des fichiers joints dans le répertoire d'intégration pour les commandes


'Création de l'objet Outlook
Set objOutlook = CreateObject("Outlook.application")
'Récupération de l'espace de nom d'outlook
Set olns = objOutlook.GetNamespace("MAPI")
'Récupération du répertoire "boite de réception" par défault
Set fld = olns.GetDefaultFolder(olFolderInbox)
Set fldc = fld.Folders("COMMANDE traitement")
' Initialisation du reperetoire de transfert
' ne pas oublier l'anti-slash à la fin du repertoire
Repertoire = "\\srvprod\exploi\in\"

' Initialisation
Compteur = 0
Set mItem = fldc.Items.GetFirst

' Sauve les pieces jointes des mails se trouvant dans la boîte de réception ayant pour sujet "A CONFIRMER...."
Do While Not mItem Is Nothing
For Each att In mItem.Attachments
subject_autorise = Left(mItem.Subject, 32)
If subject_autorise = "A CONFIRMER Commande Fournisseur" Then
'Nom du fichier modifié pour l'enregistrement. Evite les controles superflus en renommant.
Taille = mItem.Size
Emetteur = mItem.SenderName
NomDeFichier = att.FileName
'Déplacement du fichier attaché dans le rep d'intégration Générix
att.SaveAsFile Repertoire & NomDeFichier


J'aimerais a la suite cliquer sur le lien ENVOYER LA CONFIRMATION


merci d'avance