CONTRÔLER OUTLOOK (1) - ENVOYER UN MAIL DEPUIS VB

Function CreateMail(astrRecip As Variant, _
                   strSubject As String, _
                   strMessage As String, _
                   Optional astrAttachments As Variant) As Boolean

   Dim olApp                 As Outlook.Application
   Dim objNewMail            As Outlook.MailItem
   Dim varRecip              As Variant
   Dim varAttach             As Variant
   Dim blnResolveSuccess     As Boolean

   On Error GoTo CreateMail_Err

   Set olApp = New Outlook.Application
   Set objNewMail = olApp.CreateItem(olMailItem)

   With objNewMail
   ' Add each item in the varRecip array to the Recipients collection.
      For Each varRecip In astrRecip
         .Recipients.Add varRecip
      Next varRecip

   ' Determine if all recipients have corresponding entries in the
   ' Outlook address book.
      blnResolveSuccess = .Recipients.ResolveAll

   ' Add each item in the varAttach array to the Attachments collection 
   ' and specify the subject and text of the mail message.
      For Each varAttach In astrAttachments
          .Attachments.Add varAttach
      Next varAttach
      .Subject = strSubject
      .Body = strMessage

   ' If all recipients are valid then send the message now, otherwise
   ' display the message so the user can fix invalid e-mail addresses.
      If blnResolveSuccess Then
          .Send
      Else
         MsgBox "Unable to resolve all recipients. Please check " _
             & "the names."
         .Display
      End If
   End With

   CreateMail = True

CreateMail_End:
   Exit Function
CreateMail_Err:
   CreateMail = False
   Resume CreateMail_End
End Function

 

• MANIPULATION DES FICHIERS WORD PROTÉGÉS
• RÉCUPÉRER LES PROPRIS D'UN DOCUMENT WORD
• SAVOIR SI VOTRE APPLI TOURNE SEULE OU SOUS VB
• SAVOIR AVEC QUELLE APPLI S'OUVRE LES FICHIERS D'UNE EXTENSION
• IMPRIMER UN DOCUMENT WORD

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

• GESTION DE NEWSLETTER (PLUGIN OUTLOOK)
• EN UNE SEUL LIGNE DE CODE, ENVOYÉ UN MAIL VIA OUTLOOK OU L'ADRESSE EST RENSEIGNÉE DANS UN TEXTBOX
• MULTISENDER
• ANNONYM MAIL V3.0.0 [BETA]
• ENVOYER EN E-MAIL AVEC OUTLOOK EXPRESS SOUS VB