1. Accueil
  2. Tous les snippets
  3. Snippets Visual Basic / VB.NET
  4. Envoi de mail grace à un windows server

Envoi de mail grace à un windows server

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 056 fois - Téléchargée 40 fois

Commenter

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
Signaler
Messages postés
13
Date d'inscription
jeudi 13 octobre 2005
Statut
Membre
Dernière intervention
25 septembre 2007
Salut je voulais savoir comment faire pour que ca marche
EnvoiMail(??????)
j'ai pas la syntaxe qui va bien
Merci
Signaler
Messages postés
3
Date d'inscription
mercredi 9 juillet 2003
Statut
Membre
Dernière intervention
3 novembre 2003
J'ai une erreur num -2147024893: Erreur Automation quand la commande myItem.Send est executée.
Signaler
Messages postés
10
Date d'inscription
lundi 25 mars 2002
Statut
Membre
Dernière intervention
7 avril 2003
Pour ceux qui sont EXCLUSIVEMENT en 2K vous avez la meme DLL qui s'appelle CDOSYS mais la faut etre sur que vous tournez pas sous du NT4 ... et de toute façon ça marche que sur un SERVER !! Bah oui, on est pro ou pas ! Je deconne, sinon servez vous du Winsock, il est moins facile d'accès et moins pratique, mais ca tourne pas mal, sinon il y a la solution de piloter Outlook, en fond de tache avec sa DLL.
Signaler
Messages postés
156
Date d'inscription
samedi 12 janvier 2002
Statut
Membre
Dernière intervention
4 mars 2003
Hé non, zmat, et c'est bien dommage !
L'objet CDONTS n'existe QUE sur NT ou 2k...
Signaler
Messages postés
13
Date d'inscription
lundi 26 novembre 2001
Statut
Membre
Dernière intervention
29 octobre 2002
Merci bien mais t'a pas un ki tourne sous win9x ou Me ?
Afficher les 6 commentaires
S'inscrire maintenant

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.

Du même auteur (Clem2k)