J'ai cr=E9e une fonction qui me permet d'envoyer des mails=20
avec Outlook avec les =E9l=E9ments qui sont choisis dans un=20
formulaire.
Mais je n'arrive pas =E0 joindre de fichiers, Access dit que=20
la propri=E9t=E9 n'existe pas, que le champ que je veux=20
modifier n'est pas valable pour ce type d'=E9l=E9ment.
Voil=E0 le d=E9but du code :
Sub SendMessage(Recipient, Subject, Sender, Att1, Att2,=20
Body, Anrede)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookCC As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachments
Set objOutlook =3D CreateObject("Outlook.Application")
Set objOutlookMsg =3D objOutlook.CreateItem(olMailItem)
objOutlookMsg.Save
Set objOutlookAttach =3D objOutlookMsg.Attachments
If Att1 <> "" Then
objOutlookAttach.Add (Att1) 'C'est ici que ca ne va=20
plus !
End If
If Att2 <> "" Then
objOutlookAttach.Add (Att2)
End If
...
Il trouve bien Att1 (qui est du String et qui donne le=20
chemin d'acces du fichier), donc je ne vois pas le=20
probleme !
Merci d'avance pour toutes les suggestions que vous=20
pourrez faire
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Raymond
Bonjour.
tu trouveras un exemple que je viens de tester ( on ne sait jamais) sur mon site http://access.seneque.free.fr/envoi_message.htm qui te permettra de comparer les différentes syntaxes.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"nenelle" a écrit dans le message de news:037901c36d4b$f728b200$ J'ai crée une fonction qui me permet d'envoyer des mails avec Outlook avec les éléments qui sont choisis dans un formulaire. Mais je n'arrive pas à joindre de fichiers, Access dit que la propriété n'existe pas, que le champ que je veux modifier n'est pas valable pour ce type d'élément. Voilà le début du code :
Sub SendMessage(Recipient, Subject, Sender, Att1, Att2, Body, Anrede)
Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookCC As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachments
Set objOutlook = CreateObject("Outlook.Application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) objOutlookMsg.Save Set objOutlookAttach = objOutlookMsg.Attachments If Att1 <> "" Then objOutlookAttach.Add (Att1) 'C'est ici que ca ne va plus ! End If If Att2 <> "" Then objOutlookAttach.Add (Att2) End If ...
Il trouve bien Att1 (qui est du String et qui donne le chemin d'acces du fichier), donc je ne vois pas le probleme ! Merci d'avance pour toutes les suggestions que vous pourrez faire
Bonjour.
tu trouveras un exemple que je viens de tester ( on ne sait jamais) sur mon
site
http://access.seneque.free.fr/envoi_message.htm
qui te permettra de comparer les différentes syntaxes.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.
"nenelle" <ganaelle.antoine@orange.fr> a écrit dans le message de
news:037901c36d4b$f728b200$a001280a@phx.gbl...
J'ai crée une fonction qui me permet d'envoyer des mails
avec Outlook avec les éléments qui sont choisis dans un
formulaire.
Mais je n'arrive pas à joindre de fichiers, Access dit que
la propriété n'existe pas, que le champ que je veux
modifier n'est pas valable pour ce type d'élément.
Voilà le début du code :
Sub SendMessage(Recipient, Subject, Sender, Att1, Att2,
Body, Anrede)
Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookCC As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachments
Set objOutlook = CreateObject("Outlook.Application")
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
objOutlookMsg.Save
Set objOutlookAttach = objOutlookMsg.Attachments
If Att1 <> "" Then
objOutlookAttach.Add (Att1) 'C'est ici que ca ne va
plus !
End If
If Att2 <> "" Then
objOutlookAttach.Add (Att2)
End If
...
Il trouve bien Att1 (qui est du String et qui donne le
chemin d'acces du fichier), donc je ne vois pas le
probleme !
Merci d'avance pour toutes les suggestions que vous
pourrez faire
tu trouveras un exemple que je viens de tester ( on ne sait jamais) sur mon site http://access.seneque.free.fr/envoi_message.htm qui te permettra de comparer les différentes syntaxes.
-- @+ Raymond Access MVP. http://access.seneque.free.fr/ http://users.skynet.be/mpfa/charte.htm pour une meilleure efficacité de tes interventions sur MPFA.
"nenelle" a écrit dans le message de news:037901c36d4b$f728b200$ J'ai crée une fonction qui me permet d'envoyer des mails avec Outlook avec les éléments qui sont choisis dans un formulaire. Mais je n'arrive pas à joindre de fichiers, Access dit que la propriété n'existe pas, que le champ que je veux modifier n'est pas valable pour ce type d'élément. Voilà le début du code :
Sub SendMessage(Recipient, Subject, Sender, Att1, Att2, Body, Anrede)
Dim objOutlook As Outlook.Application Dim objOutlookMsg As Outlook.MailItem Dim objOutlookRecip As Outlook.Recipient Dim objOutlookCC As Outlook.Recipient Dim objOutlookAttach As Outlook.Attachments
Set objOutlook = CreateObject("Outlook.Application") Set objOutlookMsg = objOutlook.CreateItem(olMailItem) objOutlookMsg.Save Set objOutlookAttach = objOutlookMsg.Attachments If Att1 <> "" Then objOutlookAttach.Add (Att1) 'C'est ici que ca ne va plus ! End If If Att2 <> "" Then objOutlookAttach.Add (Att2) End If ...
Il trouve bien Att1 (qui est du String et qui donne le chemin d'acces du fichier), donc je ne vois pas le probleme ! Merci d'avance pour toutes les suggestions que vous pourrez faire
