Discussion :

[stefano]

Bonjour a tous,

Je voudrais modifié une macro pour envoyer un mail directement d'Excel sans passé par Outlook

Jusque là, en fouinant sur le forum j'ai trouver mon bonheur

Par contre je solicite votre aide pour ce qui est de la gestion des erreurs sur l'envoie du mail.

Je utilise une adresse smpt par default et si j'ai une erreur je voudrais utiliser une adresse smtp de secours.
Comment faire

Merci par avance pour toute l'aide que vous pourrez m'apporter

[stefano]

j'ai trouver une solution c'est peut être pas la meilleur mais elle semble a peut pres fonctionner

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Sub EnvoiMail()
'
' Macro7 Macro
'
On Error GoTo out
.
.
reste du code avec la 1ere IP dedans 
.
.
Exit Sub
out:
If Err.Number = -2147220973 Then
    'fenetre = Application.Dialogs(xlDialogSendMail).Show(destinataire, objet)
 
    Set ol = CreateObject("Outlook.Application")
    Set olmail = ol.CreateItem(olMailItem)
    With olmail
        .To = destinataire
        .Subject = objet
        .Body = ""
        If FichierJoint <> "" Then
            .attachments.Add FichierJoint
        End If
        .attachments.Add fichier2 & ".xls"
        .Display '
    End With
Else
 MsgBox ("Erreur : " & Err.Description)
End If
end sub

Si ça peut aider d'autre personne qui ont le même soucis

[AlainTech]

Je voudrais modifié une macro pour envoyer un mail directement d'Excel sans passé par Outlook

Pourtant, c'est ce que tu fais.

Fais une recherche dans ce forum avec le mot clé CDO. Tu devrais trouver ton bonheur.

[patricktoulon]

bonjour stefano


tu a dans ma signature un lien qui te dirige sur mon formulaire pour les mail

comme te la suggéré Alaintech j'utilise le "cdo"

ensuite pour ton erreur de smtp j'ai du mal a comprendre parceque il te suffi de mètre celui de ton fournisseur d'accès et il ne peu pas y avoir d'erreur

a moins que ta box soit éteinte

voila au plaisir