Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Microsoft 365 Envoi via Excel avec OutlookNew

Nathan027

XLDnaute Junior
Bonjour à toutes et à tous

J'ai un petit soucis, j'ai une macro d'envoie automatique de mail via Excel.
Le soucis est qu'avec Outlook New .. ma macro ne fonctionne pas, elle ne fonctionne qu'avec Outlook Classique.
Je pourrais évidement utiliser le classique mais dans ma société on utilise les deux ..
Sauriez vous comment faire ? Merci. (j'ai volontairement mise de fausse adresse mail pour partager ma macro ici)

J'espère que vous pourrez m'aider. Merci d'avance pour le temps consacrer.

Sub EnvoyerMail()
Dim OutlookApp As Object
Dim OutlookMail As Object
Dim cheminFichier As String
Dim nomFichier As String
Dim adresseEmail1 As String
Dim adresseEmail2 As String

' Définit les adresses e-mails des destinataires
adresseEmail1 = "aaaaa@gmail.com"
adresseEmail2 = "bbbb@gmail.com"

' Définit le chemin et le nom du fichier à envoyer
cheminFichier = ThisWorkbook.FullName
nomFichier = ThisWorkbook.Name

' Crée une instance de l'application Outlook
Set OutlookApp = CreateObject("Outlook.Application")

' Crée un nouvel e-mail
Set OutlookMail = OutlookApp.CreateItem(0)

With OutlookMail
.To = adresseEmail1 & ";" & adresseEmail2 ' Ajoute les adresses e-mail
.Subject = "Demande de codification"
.Body = "Bonjour" & Chr(13) & "" & Chr(13) & "Veuillez trouver ci-joint une demande de codification" & Chr(13) & "" & Chr(13) & "Cordialement."
.Attachments.Add cheminFichier ' Ajoute le fichier en pièce jointe
.Display ' Affiche l'e-mail avant l'envoi (utilisez .Send pour envoyer directement)
End With

' Libère la mémoire
Set OutlookMail = Nothing
Set OutlookApp = Nothing
End Sub
 

wDog66

XLDnaute Occasionnel
Bonjour, et si on ne peut plus revenir à l'ancienne version ?
Je suis bloqué comme Nathan :'(
Merci !
Bonjour Titou37P

Si vous êtes sur Windows, peut-être en modifiant la base de registre comme indiqué ici

A+
 

Titou37P

XLDnaute Nouveau
Re, je n'arrivait plus à lancer mon application locale Outlook (aussi appelé application Lourde). J'ai au final réussi à le faire via les panneaux de configuration !
Sur Windows 11 (il faut être administrateur de son poste info) :
Panneau de configuration -> Programmes et fonctionnalités -> clic droit sur l'application "Microsoft 365" -> Modifier -> Réparation rapide.
Le PC a tout bien remis et je peux de nouveau ouvrir mon application Outlook de bureau ! C'est le retour du VBA
Si ça peut vous aider
A+ !
Titou
 

Discussions similaires

Réponses
7
Affichages
558
Réponses
2
Affichages
623
Réponses
2
Affichages
326
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…