Discussion :

[tomy7]

bonjour,
je cherche a envoye un mail si par exemple le user a perdu le mot de passe.
j ai trouver une facon de le faire mais elle me derange:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub CommandButton3_Click()
Dim ol As New Outlook.Application
   Dim olmail As MailItem
   Dim CurrFile As String
   Set ol = New Outlook.Application
   Set olmail = ol.CreateItem(olMailItem)
   With olmail
    .To = "address mail"
    .Subject = "PASSWORD "
    .Body = "password"
    .Attachments.Add ActiveWorkbook.FullName
    End With
End Sub

quelqu un connait il un autre moyen sans utiliser outlook?

[tomy7]

j ai trouver une autre methode ds les forums mais ma routine plante sur le ".send" :comme ci-dessous!

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
Private Sub CommandButton3_Click()
Dim CdoMessage As CDO.Message
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = "Password"
        .From = "niania@....fr"
        .To = "nini@.....fr"
        .CC = ""
        .BCC = ""
        .TextBody = "password"
        .Send
    End With
 
    Set CdoMessage = Nothing
End Sub

[SilkyRoad]

bonsoir


Certains FAI (par exemple wanadoo) nécessitent de préciser le serveur SMTS:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
    With CdoMessage
        .Subject = "Password"
        .From = "niania@....fr"
        .To = "nini@.....fr"
        .CC = ""
        .BCC = ""
        .TextBody = "password"
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.wanadoo.fr" 'nom du serveur smtp 
        .Send
    End With

bonne soirée
michel

[tomy7]

la methode ne marche pas voici le message d erreur: voir piece jointe

mon code que j ai essaye:

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
Dim CdoMessage As CDO.Message
    Set CdoMessage = New CDO.Message
    With CdoMessage
        .Subject = "Password"
        .From = "niania@yahoo.fr"
        .To = "nini@hotmail.com"
        .CC = ""
        .BCC = ""
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.yahoo.fr" 
        .TextBody = "password"
        .Send
    End With
 
    Set CdoMessage = Nothing

voici le mess d erreur
Pièce jointe 25165

je suis entrain d etudier une technique qu on m montrer sur un autre forum grace a moderateur. donc je tiens tt le monde au courant si ya du changement.