Access-3stone - Forum - Problèmes liés aux codes du site

1 membre

Connectés : ( personne )

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° 1 -------- le 22/05/2015 : 10:45 par 3Stone Administrateur	Bonjour, Citation : en y rajoutant une ligne pour attacher une pièce jointe : Lorsque l'on panache les codes... il faut le faire correctement Citation : .AddAttachment = CheminPJ AddAttachement est une fonction qui n'utilise pas de "=" Il faut donc copier correctement... Citation : j'ai beau compté les arguments, il semble en avoir 7 partout. Les deux deniers sont optionnels, donc on ne les mets pas (et encore moins des chaines vides, puisque cela repésente les (éventuels) émails en copie carbone et copie invisible. La solution est donc d'utiliser le AddAttachement comme indiqué dans mon code et l'erreur disparait. Cordialement, Pierre (3Stone)