Envoyer un fichier par mail sous vista

[bmhx60]

Bonjour a tous,

Je chercher un code vba pour envoyer un fichier par mail.
Seulement J'ai Vista et Windows Mail.

Merci d'avance pour votre aide.

Bon dimanche

@+

 

[Hulk]

Re : Envoyer un fichier par mail sous vista

Hello,

Te propose ce lien (en anglais), très intéressant.

Si tu as des problèmes pour mettre en place un des codes proposés, le mieux est que tu déposes ton fichier avec des précisions sur le résultat que tu souhaites, tu auras sûrement de l'aide.

Bon dimanche.

 

[bmhx60]

Re : Envoyer un fichier par mail sous vista

Bonjour Hulk,

J'ai deja vu ce lien et je n'ai pas trouve de solution.

Voici le code qui marche sous xp avec Outlook mais pas sous Vista.


Public Function test2()
Dim OutLookApp, MailItem, Recipient
Dim message As String

message = "Bonjour"

Set OutLookApp = CreateObject("Outlook.Application") 'création du lien avec outlook

Set MailItem = OutLookApp.CreateItem(0)
MailItem.Subject = CStr(sSubject)
MailItem.Body = CStr(sBody)

With MailItem

.To = "Adresse@test.fr
'.CC = ""
.Subject = "Fichier"
.Body = message
.Attachments.Add "C:\Temp\Test.xls"
.Display
'.Send

End With
End Function

@+