ENVOI DE MAIL GRACE À UN WINDOWS SERVER

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 

• TABLEAU DE CORRESPONDANCES TYPES DE DONNÉES --> CODES ADO
• SCANNER + IMPRIMANTE = PHOTOCOPIEUR
• RESOLVEUR DE DNS
• ENVOI DE MAIL VIA IIS : CDONTS.DLL ET CDOSYS.DLL
• ADO CONNECTION STRING GENERATOR

• LECTEUR RSS EN VB.NET
• TALK TO PROTOCOLE
• WSK - SERVEUR WINSOCK MULTI-CLIENTS, ENCRYPTÉ, COMPRESSÉ
• PACKET SNIFFER - SOCKET RAW
• COMPTEUR POUR CYBERNET