Discussion :

[Miraie]

Bonjour, j'ai un erreur de compilation: Sub ou Fonction non définie. quand j'execute ma macro d'envoie de courriel. Voici mon code.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub EnvoiEmail_Variables()
 
Dim MonSujet As String
Dim MonDestinataire As String
Dim MonContenu As String
 
MonSujet = "Test sujet"
MonDestinataire = "courriel@valable.com"
MonContenu = "Test contenu"
 
        Call EnvoyerEmail(MonSujet, MonDestinataire, MonContenu)
 
MsgBox "Test terminé..."
End Sub

ma référence Microsoft Outlook 16.0 Object Library est activé. L'erreur surligne " Call EnvoyerEmail ". Quel est mon erreur? Je ne comprend pas du tout.
Merci d'avance pour votre aide.

[TonyNiort79]

Bonjour à tous

tu fais appel à une autre procédure

Call EnvoyerEmail
je ne pense pas qu'elle n'existe

[MarcelG]

Bonjour,

Tu dois avoir codé une procédure argumentée qui est appelée dans cette procédure.

Pourrais-tu en retourner le code.

[Miraie]

Vous avez raison, c'est la première fois que j'essaie d'envoyer des courriels via Excel et je croyais qu'avec ce script, il serait facile d'y ajouter des fonction "IF". Donc je suis mieux de changer de formule ou pouvez-vous m'expliquer à quoi consiste la procédure?

Un fois de plus merci pour votre aide.

[MarcelG]

Bonjour Miraie, Bonjour le Forum,

C'est plutôt l'inverse.
Était attendu le retour de la procédure argumentée nommée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

EnvoyerEmail

qui figure dans ton projet VBA.

Ceci dit, j'ai reporté dans cette discussion un code complet que j'avais développé.

Bonne journée à tous.