set obj = CreateObject("CDO.Message")
obj.From ="""Nom de l'expéditeur"" <toto@toto.com>"
obj.To ="tutu@tutu.com"
obj.Subject ="La méteo sur pompignan les bains"
obj.TextBody = "Bonjour," & vbCRLF & vbCRLF
obj.TextBody = obj.TextBody & "Ce mail a été généré automatiquement suite ........." & vbCRLF & vbCRLF
obj.TextBody = obj.TextBody & vbCRLF & vbCRLF
obj.TextBody = obj.TextBody & "Copyright(c) 2008, ta.compagnie.com." & vbCRLF
obj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
obj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "serveur smtp de ton choix"
obj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
obj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = false
obj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 20
obj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1\n");
obj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") = \"%s\"\n", "ton login stmp");
obj.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") = \"%s\"\n", 'ton password stmp);
obj.Configuration.Fields.Update
On Error Resume Next
obj.Send
Partager