Erreur 1004 pour envoi mail

RICO1972 · 7 Novembre 2006

Bonjour TLM,

Lorsque j'exécute cette macro :

Sub envoimail()
ActiveSheet.Range("A2:G57").Select
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Item.To = Range("A7")
.Item.Subject = "xxxxxxxxxxx"
'.Item.Send
End With
End Sub

Elle fonctionne parfaitement sur certains ordi mais pas sur tous ??? Si kelkun peut m'expliquer Pkoi ??

Je vous en remercie par avance.
Rico
PS : La macro bloque à la seconde ligne Tet tous les ordi sont sous Excel 2003.

MichelXld · 7 Novembre 2006

Re : Erreur 1004 pour envoi mail

bonjour

il me semble que cette option est disponible uniquement à partir d'excel2002

bonne journée
MichelXld

RICO1972 · 7 Novembre 2006

Re : Erreur 1004 pour envoi mail

Salut MichelXld,
Tu sais quel code je peux mettre à la place ??
Rico

MichelXld · 7 Novembre 2006

Re : Erreur 1004 pour envoi mail

rebonjour

tu peux tester

Code:

Sub PlageDeCellulesDansCorpsDuMessage()
'adapté de : [url=http://support.microsoft.com/default.aspx?kbid=286430]How To Send HTML Formatted Mail Using CDO for Windows 2000 and the Local Pickup Directory[/url]
Dim iMsg As Object, iConf As Object
Dim strHTML As String
Dim i As Byte, j As Byte

Set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")

strHTML = ""
strHTML = strHTML & "<HEAD>"
strHTML = strHTML & "<BODY>"
strHTML = strHTML & "Bonjour , <BR>vous trouverez ci joint le tableau demandé<BR><BR>"
strHTML = strHTML & "<B><SPAN STYLE='background-color:green;font-size:6mm'>Résultats : </SPAN></B><BR><BR>"
strHTML = strHTML & "<TABLE BORDER>"

For i = 1 To 5 'nombre de lignes (exemple plage A1:B5)
    strHTML = strHTML & "<TR halign='middle'nowrap>"
    For j = 1 To 2 'nombre de colonnes
    strHTML = strHTML & "<TD bgcolor='yellow'align='center'><FONT COLOR='blue'SIZE=3>" _
            & Cells(i, j) & "</FONT></TD>"
    Next j
    strHTML = strHTML & "</TR>"
Next i

strHTML = strHTML & "</TABLE>"

strHTML = strHTML & "<BR><BR>Cordialement<BR>" & Application.UserName
strHTML = strHTML & "</BODY>"
strHTML = strHTML & ""

With iMsg
Set .Configuration = iConf
.To = "[EMAIL="destinataire@mail.fr"]destinataire@mail.fr[/EMAIL]" 'renvoie une erreur si l'adresse est non valide
'.From = "[EMAIL="youralias@yourdomain.com"]youralias@yourdomain.com[/EMAIL]"
.Subject = "Test Envoi Tableau par mail"
.HTMLBody = strHTML
.Send
End With

End Sub

bon apres midi
MichelXld

RICO1972 · 7 Novembre 2006

Re : Erreur 1004 pour envoi mail

Re MichelXld
je viens de tester ce code ne fonctionne pas chez moi ...
Cela peut-il venir de ma config ?? Windows2000 Porfessionnal et excel 2003 ?
@+

RICO1972 · 7 Novembre 2006

Re : Erreur 1004 pour envoi mail

Re MichelXld
je viens de trouver ce code qui fonctionne bien :

Sub EnvoiUnMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
MailAd = Range("A1")
Subj = Range("A2")
Msg = Msg & Range("A3")
URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg
ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Je n'ai plus de pb .. tout fonctionne
Merci qd mm.
RICO

Erreur 1004 pour envoi mail

RICO1972

XLDnaute Occasionnel

MichelXld

XLDnaute Barbatruc

RICO1972

XLDnaute Occasionnel

MichelXld

XLDnaute Barbatruc

RICO1972

XLDnaute Occasionnel

RICO1972

XLDnaute Occasionnel

Discussions similaires

Erreur 1004 pour envoi mail

RICO1972

XLDnaute Occasionnel

MichelXld

XLDnaute Barbatruc

RICO1972

XLDnaute Occasionnel

MichelXld

XLDnaute Barbatruc

RICO1972

XLDnaute Occasionnel

RICO1972

XLDnaute Occasionnel

Discussions similaires

Privacy & Transparency

Privacy & Transparency