chercher l'erreur

[cartus02]

qui trouvera l erreur ?

j'ai dans un classeur excel un bouton : "send mail"

lorsque l on clique sur ce bouton une boite de dialogue s'ouvre ou ou l on rentre les infos suivants:

adresse mail
objet
message....

cependant le code se deroule mais le mail n'arrive jamais.......

voila le code:


Private Sub CommandButton2_Click()
Unload Me
End Sub
Private Sub TextBox1_Change()
TextBox1 = LCase(TextBox1)
End Sub
Private Sub CommandButton1_Click()
Dim Arobase As String
Dim Point As String
Dim Vide As Variant
If TextBox1.Value = "" Then
MsgBox "Vous avez oublié de rentrer une adresse !", vbInformation, ""
TextBox1.SetFocus
Exit Sub
End If
MailAdresse = TextBox1.Value
MailSubject = TextBox2.Value
'Textbody = TextBox3.Value
On Error GoTo BadMail
Arobase = Application.WorksheetFunction.Search("@", MailAdresse, 1)
Point = Application.WorksheetFunction.Search(".", MailAdresse, 1)
On Error GoTo Suite
Vide = Application.WorksheetFunction.Search(" ", MailAdresse, 1)
Suite:
If Vide <> "" Then GoTo BadMail
Call SendWorkBook
'SortirUserForm
Exit Sub
BadMail:
MsgBox "Adresse Email incorrecte !", vbInformation, ""
TextBox1.SetFocus
End Sub
Private Sub UserForm_Initialize()
Me.Caption = " ENVOI DU CLASSEUR"
End Sub


Sub SendWorkBook()

Set objMessage = CreateObject("CDO.Message")
With objMessage
.Subject = TextBox2.Value
.To = TextBox1.Value
.CC = TextBox4.Value
.TextBody = TextBox3.Value

End With

Set objMessage = Nothing

MsgBox "Votre classeur a bien été envoyé", vbInformation, ""
Unload Me
End Sub




bon courage et surtout merci

 

[mutzik]

Re : chercher l'erreur

bonjour,

il manque un .send dans with objMessage

 

[cartus02]

Re : chercher l'erreur

et non ca ne marche toujours pas
pire encore maintenant ca bugg...........