Vba + Incredimail

[bmhx60]

Bonjour a tous,

Voici ma question, je cherche a envoyer un mail +une piece joint en VBA. J'ai trouve des macros sur le net le seul soucis c'est que je utilise Incredimail et non Outlook. Merci de votre aide. Bonne journée a tous.

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

 

[bmhx60]

Re : Vba + Incredimail

re-Bonjour a tous,

j'ai trouve ci sur le net qui prepare le mail mais je n'arrive pas a mettre une piece-joint. Dans l'attente de votre aide.


Sub EnvoiMail()
Dim MailAd As String
Dim Msg As String
Dim Subj As String
Dim URLto As String
Dim objMail As String

MailAd = "essai@test.fr"
objMail = "Essai"
Subj = "Test"
Msg = "Essaie"

With MailItem
'.Attachments.Add "C:\Test.csv"
'.Display
'.Send
End With

URLto = "mailto:" & MailAd & "?subject=" & Subj & "&body=" & Msg

ActiveWorkbook.FollowHyperlink Address:=URLto


End Sub