1 membre
Connectés : ( personne )
- La Charte du Forum - Forum - Problèmes liés aux codes du site
Sujet n° 749 |
Envoi mail CDO avec pièces jointes |
le 22/05/2015 : 08:12 par CAIRIS
visiteur |
Bonjour et merci d'avance pour votre aide
J'ai utilisé le code d'envoi de mail par CDO en y rajoutant une ligne pour attacher une pièce jointe :
Function SendMailCDO(Sender As String, Receiver As String, Subject As String, BodyText As String, CheminPJ As String, Optional Cc As String, Optional Bcc As String) Dim Cdo_Message As New CDO.Message Set Cdo_Message.Configuration = GetSMTPServerConfig() With Cdo_Message .To = Receiver .From = Sender .Subject = Subject .TextBody = BodyText .AddAttachment = CheminPJ .Cc = Cc .Bcc = Bcc .Send End With Set Cdo_Message = Nothing End Function
Quand j'appelle la fonction comme ceci : Call SendMailCDO("test@test.fr", "test@test.fr", "sujet", "corps du message", "T:\PilotageBCM\Export\ClientJournal1.txt", "", "") j'ai un message d'erreur "Erreur de compilation-Argument non facultatif" (le code plante sur la ligne que j'ai rajoutée) ... j'ai beau compté les arguments, il semble en avoir 7 partout. Où est ce que je fais une erreur ? |
|
|
Réponse n° 2 -------- le 26/05/2015 : 06:55 par Cairis
visiteur |
Merci, j'avais effectivement un = de trop. |
|
|
sujet actif
sujet clos
Important!
Nouveau message -
Rectifier message
Clôturer sujet
Remonter
|