Discussion :

[EmmanuelleFFH]

Bonjour,

J'ai un formulaire excel avec la fonction sendmail qui permet, via thunderbird, d'envoyer le mail sans avoir besoin de saisir le nom du destinataire. (formulaire créé sous office 2007)

Seulement voilà, sur un pc en 2003 et j'ai le message d'erreur suivant :



Que faire et surtout quelle en est la cause ?

[casefayere]

Bonjour,
Communiques ton code car je pense qu'en envoyant par thunderbird ou Outlook, le principe doit être le même.

[EmmanuelleFFH]

Merci !

Petite précision : le problème se pose sur une machine 0ffice 2003 sur laquelle outlook n'est pas installé... Si le problème vient de là, c'est la "cata" car nous avons beaucoup de pc 2007 ou 2003 qui ont une version office sans outlook !

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Bouton_demande()
If Worksheets("feuille").[A1] <> "" Then
ActiveWorkbook.SaveAs Filename:="U:\blabla" & Format(DateAdd("D", 0, Date), "YYYYMMDD") & Format(Now, "hhmm") & ".xls"
ActiveWorkbook.SendMail Recipients:=Array("xxx@aaa-bbb.ch"), Subject:="objet"
ActiveWorkbook.Close
Else
MsgBox "Des cases obligatoires ne sont pas remplies !"
Range("C7").Select     
End If
End Sub

[casefayere]

Alors là, je ne connais pas plus mais peux-tu faire autrement ?

Exemple à adapter (sans serveur de messagerie) :

Etudies le pour remplacer par les bonnes infos

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
32
33
34
Sub mail_direct()
Const cdoBasic = 1
Dim admail As String
Dim messmail As String
Dim expediteur As String
On Error Resume Next
expediteur = InputBox("Adresse mail de l'Expéditeur", "ADRESSE ELECTRONIQUE", "toto@wanadoo.fr")
admail = InputBox("choisir le destinataire", "DESTINATAIRE", "titi.com")
messmail = "Bonjour," & Chr(10) & "Ci-joint, gnagnagna " & Date & Chr(10) & Chr(10) & "Cordialement" & Chr(10) & Chr(10) & "ton nom" & Chr(10) & "ta fonction"
With CreateObject("CDO.Message")
    If Err Then
        MsgBox "Problème de CDO non installé sur le serveur WEB": Exit Sub
    Else
        .From = expediteur
        .To = admail
        .BCC = ""
        .Subject = "ton sujet"
        .TextBody = messmail
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = expediteur
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "ton mot de passe de messagerie"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "ton smtp"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Configuration.Fields.Update
        .AddAttachment fichierJoint
        .Send
        If Err Then
            If i = 1 Then MsgBox Err.Number & "***" & "Le message n'a pas pu être expédié."
        End If
    End If
    On Error GoTo 0
End With
End Sub

[EmmanuelleFFH]

Bonjour et merci pour la réponse !

Je n'aurais probablement pas besoin d'aller aussi loin car la réponse semble provenir d'une corruption de fichier.

Sources :
http://www.geckozone.org/forum/viewt...625561#p625561

http://forum.pcastuces.com/vba___sen...-f23s13059.htm

Merci pour tes recherches et ta proposition !

Bonne journée