Envoi de mail grace à un windows server

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 872 fois - Téléchargée 39 fois

Contenu du snippet

ATTENTION CE CODE NE FONCTIONNE QUE SUR UN WINDOWS SERVER (NT4 Server ou 2000 Server). Vous devez d'abord déclarer la dll qui se trouve dans le répertoire System32 CDONTS.DLL c'est elle qui vous permet de créer les objets mails. Pas de client de mail recquis.

Source / Exemple :


Public Sub EnvoiMail(From As String, SendTo As String, Message As String, _
                     Optional SendCC As String, Optional SendBCC As String, _
                     Optional Objet As String, Optional Priorite As Integer, _
                     Optional Fichier As String)
Dim i As Integer
Set myItem = New CDONTS.NewMail

'Extraction de la liste des fichiers joints
If Fichiers <> "" Then
myItem.AttachFile Fichier

myItem.To = SendTo
If SendCC <> "" Then myItem.Cc = SendCC
If SendBCC <> "" Then myItem.Bcc = SendBCC

If From <> "" Then
    myItem.From = From
Else
     myItem.From = App.Title
End If

If Message <> "" Then myItem.Body = Message
If Objet <> "" Then myItem.Subject = Objet
myItem.Importance = Priorite

myItem.Send

End Sub

Conclusion :


Bientot du code sur http://www.clem2k.fr.st (en attendant ya plein de conneries dessus)

A voir également

Ajouter un commentaire

Commentaires

Commenter la réponse de VB6Boss

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.