Envoi de mail depuis excel plusieurs champs

Bonjour,

J'ai un envoi de mails assez important à réaliser, qui concerne précisément 180 personnes, avec intégrations d'informations différentes pour chacun dans un corps de texte identique.

En détail :

Le service informatique de ma boite propose aux utilisateurs un serveur de sauvegarde pour leurs documents professionnels.
Ce serveur arrive à saturation, donc je vais envoyer un mail individuel à chacun leur demandant de faire un peu de ménage.

J'ai un fichier Excel dans lequel j'ai "Nom / Prénom / Mail / Espace occupé" pour chacun. Je souhaite créer une macro qui permette d'envoyer simultanément un mail à chacun, avec le même objet et le message suivant :

---------------
"Bonjour,

Sur le serveur de sauvegarde, vous occupez actuellement [ici la taille d'espace disque correspondant à l'utilisateur auquel le mail est envoyé] Go d'espace disque.
Le serveur étant en surcharge, blablabla...
Merci d'avance de faire le nécessaire dans votre répertoire de sauvegarde sur le serveur, blablabla....
Merci pour votre collaboration.
blablabla…"
---------------

Voici le lien vers un fichier de test pour que vous puissiez voir comment cela se présente.
http://dl.free.fr/getfile.pl?file=/nUkVaBdq

De plus, il faudrait que ce message soit envoyé par l'adresse de messagerie du service. Ma messagerie Outlook est ouverte sous mon compte. Il faudrait pouvoir renseigner le champ "De..." par l'adresse mail du service info.

J'ai écris un code déjà qui fait tout ce que je veux. Deux points sur lesquels je bloque :
- Remplir le champ "De..." par l'adresse du service.
- Insérer la taille d'espace utilisé pour chacun.

  
Sub envoi_mail()
    '---  Envoi par mail
    Dim olapp As Outlook.Application
    Range("D3").Select
    Do While Not IsEmpty(ActiveCell)
      Dim msg As MailItem
      Set olapp = New Outlook.Application
      Set msg = olapp.CreateItem(olMailItem)
      msg.To = ActiveCell.Value
      msg.Subject = Range("A19").Value
      msg.Body = Range("A23").Value & Range("F3").Value & Range("A25").Value
      msg.Send
      ActiveCell.Offset(1, 0).Select
    Loop
End Sub

Vous comprendrez mieux avec le fichier.

Si vous avez des questions ou des points que vous voulez que j'éclaircisse, n'hésitez pas !

Merci d'avance pour votre aide :)