Excel mail:autre methode

Version imprimable

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:

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?

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

Code:

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

bonsoir

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

Code:

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

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

mon code que j ai essaye:

Code:

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.