Microsoft 365 Envoi email automatique depuis boite mail partagée

MURET31

XLDnaute Nouveau
Bonjour à tous,
j'ai fait le code ci-dessous pour envoyer des emails en copiant les infos de la cellule B1 de la feuille "Feuil1".
Et je souhaiterais modifier le code avec les conditions suivantes:
  • Changer l'adresse de l'expéditeur (actuellement moi en le remplaçant par notre adresse de boite mail partagée).
  • Mettre une condition de ne pas envoyer de mail si la cellule B1 est vide.
D'avance merci beaucoup pour votre aide.
Muret

VB:
Sub mail_outlook_B1() 'début du programme 'mail_outlook_debutant'

Dim OutApp As Object 'Déclaration de l'application objet Outlook
Dim OutMail As Object 'Déclaration du mail objet Outlook

Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)


With OutMail 'début de la boucle
    .To = "abc@xxx" 'champ envoyer à
                                         'ne pas oublier les "" lorsque le texte est écrit 'en dur'
                                         'séparer les adresses mail par un ;
    .CC = "def@xxx" 'champ mail en copie
    .BCC = "" 'champ mail en copie caché
    .Subject = "MET" 'champ du sujet du mail
    .Body = Worksheets("Feuil1").Range("B1") & vbCrLf & ""
            'champ du corps du mail
            ' ajouter & vbCrlF & pour aller à la ligne entre deux valeurs
 
    '.Display 'affiche le mail en brouillon dans Outlook, pratique
             'pour vérifier avant d'envoyer
    .Send 'envoie directement le mail
    '.Save 'sauvegarde le mail
    
End With 'fin de la boucle

Set OutMail = Nothing 'nettoie la mémoire en nettoyant les variables
Set OutApp = Nothing 'nettoie la mémoire en nettoyant les variables


End Sub  'fin du programme