envoi mail invisible

Question

bonjour a tous

je cherche un code simple pour l'envoi de mail de fa&#231;on &#224; se que l'utilisateur du programme ne voit rien.

Private Sub notify()
        
        Set objEmail = CreateObject("CDO.Message")
    objEmail.From = "Troya notifycation"
    objEmail.To = "[mailto:kayajiro@hotmail.com kayajiro@hotmail.com]"
    objEmail.Subject = "ip"
    objEmail.Textbody = "ip dans l'ent&#233;te"
    For i = 1 To 1
objEmail.Send
    Next


Resume Next
End Sub

J'ai essayer se code mais sa ne marche pas 
j'esp&#233;re que quelqu'un trouvera mieu.

cs_CanisLupus · Answer

Salut,

Vois du c&#244;t&#233; winsock, plein d'exemples sur le site.

Loup Gris

kayajiro · Answer

j'ai essayer de chercher, j'en n'est trouver mais le seul probl&#232;me c'est je n'arrive pas a couper et a modifier le code . LOL

je cherche un truk simple du style :
 
Private Sub notify()
        
        Set objEmail = CreateObject("CDO.Message")
    objEmail.From = "Troya notifycation"
    objEmail.To = "[mailto:kayajiro@hotmail.com kayajiro@hotmail.com]"
    objEmail.Subject = "ip"
    objEmail.Textbody = "ip dans l'ent&#233;te"
    For i = 1 To 1
objEmail.Send
    Next


Resume Next
End Sub

mais merci de m'avoir r&#233;pondu.

Envoi mail invisible

2 réponses

Discussions similaires