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:
Muret
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.
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