fichier joint dans outlook en vb

Question

si il est facile de lancer outlook en vb avec un subjet predefini, comment faire pour joindre automatiquement un fichier a mon mail (en piece jointe bien sur)
merci

stabe · Answer

Bonjour,

Voici un code très simple pour envoyer un message depuis Access via Outlook, pièce jointe comprise :

Public Sub CreateEmail (Recipient As String, Subject As String, Body As String, Optional Attach As Variant)
Dim appOutLook As Object
Dim oEmail As Object

Dim message As String
Dim i As Integer

Set appOutLook = CreateObject("Outlook.Application")
' créer un nouvel item mail
Set oEmail = appOutLook.CreateItem(0)
' les paramètres
oEmail.To = Recipient
oEmail.Subject = Subject
oEmail.Body = Body
If Not IsMissing(Attach) Then
If TypeName(Attach) = "String" Then
' s'il y a des pièces jointes
oEmail.Attachments.Add Attach
Else
For i = 0 To UBound(Attach) - 1
oEmail.Attachments.Add Attach(i)
Next
End If
End If
' envoie le message
oEmail.Send
End Sub

'Appel de cette procédure
Call CreateEmail(email_destinataire, sujet, message, chemin_piece_jointe)

exemple :

Call CreateEmail("toto@totoland.com", "ceci est le sujet", "ceci est un test", "c:\command.com")

-- stabe --

chalmet · Answer

merci, ca marche bien. 
mais comment faire pour que le programme lance la messagerie par defaut et non pas seulement outlook

laylae1 · Answer

Bonjour.moi je veux un programme en vb6 qui permet d'enregistrer  tous les emails de outlook  qui contients des fichiers joints.
c trés important pour moi 

s'il vous pl c urgent

Fichier joint dans outlook en vb

3 réponses

Discussions similaires