Microsoft 365 Envoi via Excel avec OutlookNew

[Nathan027]

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]

Bonjour Nathan027

Vous pouvez très bien revenir sur Outlook classique (pour le moment)
il suffit de désactiver l'option

Sinon vous vous trouvez sur le web et là, adieu le VBA

 

[Titou37P]

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

 

[wDog66]

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

Use Classic Outlook, not New Outlook

Microsoft has two "new" Outlooks, one for MacOS and one for Windows. How to switch back to classic Outlook and disable the Try new Outlook switch.

www.slipstick.com

A+

 

[Titou37P]

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