vba excel, envoie d'un mail

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

pepsister

XLDnaute Junior
Bonjour,

voila je souhaite quand ma macro rencontre une anomalie qu'elle m'envoie un mail et s'arrête.
J'ai cherché il y a bcp de choses sur internet plus ou moins compliqué, certains passent directement par SFTP (je ne sais pas trop ce que c'est), enfin j'ai essayé pas mal de choses et ca ne marche pas.
J'ai vu sur ce forum une solution en passant par outlook soit disant plus simple donc pourquoi.
Mais quand je lance ma macro et qu'on arrive sur l'envoie de mail j'ai le message suivant:
Erreur d'exécution '429': Un composant ActiveX ne peut pas créer d'objet.

Peut-être faut il télécharger une librairie supplémentaire? Mais où? Excel ou outlook? Laquelle?
Peut etre est-ce un pb dans ma macro?

Je mets mon code
Code:
 Dim Maille As String
 Dim Sujet As String
 Dim DernLigne as long

DernLigne = Range("A1048576").End(xlUp).Row
For a = 2 To DernLigne
  If Sheets("Feuil3").Cells(a, 4).Value <> "SUCCEED" Then
  'alors on rejette directement
  Sheets("Résultat").Range("A1").Value = "ANOMALIE"
  Maille = "moi@gmail.com"
  Sujet = "Anomalie"

Set OL = CreateObject("Outlook.Application")
Set MyItem = OL.CreateItem(olMailItem)
With MyItem
    .To = Maille
    .Subject = Sujet
    .Categories = "Banking-Info"
    .OriginatorDeliveryReportRequested = False
    .ReadReceiptRequested = False
    .Send
End With
Exit Sub
End If
Next

Merci pour votre aide,
 
Re : vba excel, envoie d'un mail

Bonjour,
oui je pense qu'il serait mieux d'ouvrir une nouvelle discussion.
par contre pour comprendre:
ici:
typeatt = Isembedded(strID, PJ.Index) 'quelle est la valeur de strID et PJ.index
le strID est défini en tant que Outlook.MailItem mais dans la fonction il doit être en string 😕, je pense que le problème vient de la.
si ça vient de la référence cela provient de la même que précédemment MSOUT.OLB
A+
 
Dernière édition:
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
2
Affichages
809
  • Question Question
Microsoft 365 Code VBA
Réponses
7
Affichages
818
Réponses
4
Affichages
461
Réponses
17
Affichages
2 K
Réponses
2
Affichages
954
Retour