script VBA pour envoyer un mail avec attachement

Matthieu <matthieu_in_hk@hotmail.com> que je salut a écrit dans
O%23bxK%23NZFHA.2768@tk2msftngp13.phx.gbl

Bonjour,

J'aimerai scripter l'envoi ou en tout cas la creation de message dont
le destinataire serait le nom d'un repertoire, et les attachements
les fichiers contenus dans ce meme repertoire.

Est-ce possible?
Oui

Quelqu'un peut-il m'aider ?
Oui

J'utilise outook avec un server exchange.
Pas de pb c'est plus la version de d'outlook qui peut être importante

Ci-dessous un exemple a adapter
'####################################################
'Créée par Olivier CATTEAU
Sub ajoutderepertoire()

Dim myOlApp As New Outlook.Application

If Application.ActiveInspector Is Nothing Then
GoTo fin
End If
Set objCurrentMessage = ActiveInspector.CurrentItem
Dim oitem As Outlook.MailItem
Set oitem = objCurrentMessage

Dim Afile, TheFiles, Fso
'ici ton repertoire
PathEDI = "c:temptempo"
Set excApp = Excel.Application
Set fichcherche = excApp.FileSearch
excApp.ScreenUpdating = False

With fichcherche
i = 0
.LookIn = PathEDI 'Changer le chemin
.FileName = "*.*" 'ou "*.txt" filetypes

If .Execute > 0 Then
'MsgBox .FoundFiles.Count & " Fichier(s) a (ont) été trouvé(s)."
For i = 1 To .FoundFiles.Count
titi = .FoundFiles(i)
oitem.Attachments.Add Source:=.FoundFiles(i), Type:=olByValue
Next i
Else
MsgBox "Aucun fichier n'a été trouvé dans le répertoire EDI : " & vbCr &
PathEDI
End If
End With
'avec cette ligne tu definis le destinataire
oitem.To = pathedi 'là ca donne "c:temptempo"

fin:

End Sub


--
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
Have a nice day
Oliv'
Pour me joindre : http://cerbermail.com/?V8r2o1YHl4
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~