Hi.. Wesley .. I Interested .. but how to attach the file? ..
I met error message: "Could not complete the operation, one or more parameters value are invalid" Error code: -2147024809 (80070057) .. I used below code:
Private Sub MsOutlook(tto As String, tSubject As String, tAttach As String, tBody As String)
Dim oItem As Outlook.MailItem
Dim oOutlook As Outlook.Application
Set oOutlook = New Outlook.Application
'Set oitems = objInbox.Items
Set oItem = oOutlook.CreateItem(olMailItem)
With oItem
.To = tto
.Body = tBody
.Attachments = tAttach
.Subject = tSubject
.Send
End With
End Sub
am I missing something?
Précédent
Suivant
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement