Citation:
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
Ensuite tu le modifies en remplacant les valeurs par des %s et tu stockes ca comme un pattern sur disque. Quand tu veux envoyer le mail, tu charges le contenu de ton pattern en mémoire, tu fais un sprintf() pour formatter le tout et ensuite tu enregistres sous un nouveau fichier.