Envoie email expéditeur selon l'usager

Bonjour,

plusieurs personnes utilise un fichier. À chaque fois que celui-ci est sauvegarder par l'un deux un email est envoyer à l'administrateur. je ne sais pas comment mettre l'expéditeur automatiquement selon celui qui sauvegarde le fichier.

Voici ce que j'utilise.

    Dim iMsg As Object
    Dim iConf As Object
    Dim strbody As String
    Dim Flds As Variant
    Dim attention As String
    Dim note As String
    Dim pluriel As String
    

    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")

        iConf.Load -1    ' CDO Source Defaults
        Set Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.danahermail.com"
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update
        End With
        





' ********************** TEXTE du COURRIEL ************************************************************************
    
    strbody = "Pieces à enlever de l'inventaire via Oracle"
               




' ********************** METTRE TOUS LES DESTINATAIRE QUI SE RETROUVE DANS LA PAGE DATAS  ************************************************************************
    

            EmailAddr = "***@***"


' ********************** ENVOIE DU COURRIEL  ************************************************************************
  
    With iMsg
        Set .Configuration = iConf
        .To = EmailAddr
        .cc = ""
        .Bcc = ""
        .From = "***@***"
        .Subject = "Transfert de pièces"
        .TextBody = strbody
        .Send
    End With

    
    
End Sub

Edit ajout des balises de code.