envoi de mail

envoi de mail - VB/VBA/VBS - Programmation

Marsh Posté le 09-03-2006 à 10:54:12    

Salut!
voilà, mon programme est en vba access; il  doit envoyer un mail à un destinataire, mais à chaque fois l'objet send echoue, pourtant je pense avoir fait une bonne configuration. voici le programme:
 

Code :
  1. Public Sub mail()
  4. Set oMail = CreateObject("CDO.Message" )
  5. Set oMailConfig = CreateObject("CDO.Configuration" )
  7. oMail.subject = "Example CDO Message"
  8. oMail.From = "dongmor@caramail.com"
  9. oMail.To = "dongmor23@hotmail.com"
  10. oMail.TextBody = "This is some sample message text."
  12. oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "NOM SERVEUR MESSAGERIE"
  13. oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserverport" ) = 25
  14. oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = 2
  15. 'oMail.Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" ) = 60
  16. oMail.Configuration.Fields.Update
  18. 'Set oMail.Configuration = oMailConfig
  20. oMail.Send
  22. Set oMailConfiguration = Nothing
  23. Set oMailConfig = Nothing
  24. Set oMail = Nothing
  25. End Sub


 
si quelqu'un voit où ça bloque.
merci

Reply

Marsh Posté le 09-03-2006 à 10:54:12   

Reply

Marsh Posté le 20-04-2006 à 11:49:40    

Dim config As CDO.Configuration
Dim email As CDO.Message
Set config = New CDO.Configuration
With config.Fields
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing" ) = CDO.cdoSendUsingPort
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver" ) = "smtp.serveur.com"
    .Update
End With
 
Set email = New CDO.Message
With email
    Set .Configuration = config
    .From = votrelogin@serveur.com
    .To = "emaildestinataire"
    .Subject = "Sujet"
    .Textbody = "Blabla"
    .Send
   
End With
 
NB : le serveur dans (votrelogin@serveur.com) doit correspondre au nom serveur de  "smtp.serveur.com" saisi plus haut
 
normalement ça marche
 
email : l_abdelmjid@yahoo.com

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed