OVH Cloud OVH Cloud

Fonction Sendmail

3 réponses
Avatar
Robert
Bonjour à tous,

Je rencontre un probleme avec le couple Excel et Outlook 2003 (Office 2003
sur win XP) avec la fonction:
'SendMail'
J'envoi des Email avec des pieces jointes grace a cette macro

Tout marche sans probleme sauf au niveau de Outlook.
Pour une raison que j'ignore, je ne vois aucune trace de mes Email dans les
éléments envoyés. (Dur dur pour le controle)
Par contre, si je fonctionne en manuel du style envoye vers destinataire en
tant piece jointe dans le menu fichier, j'ai bien une trace dans mes
éléments envoyé.

Y'a t'il un flag ou un reglage special a faire dans la macro, excel, ou
Outlook ????

Qui peux venir en mon aide ?
Merci

Robert

3 réponses

Avatar
MichDenis
Va voir là : http://www.rondebruin.nl/sendmail.htm



"Robert" <aucune> a écrit dans le message de news: 456ade8f$0$25954$
Bonjour à tous,

Je rencontre un probleme avec le couple Excel et Outlook 2003 (Office 2003
sur win XP) avec la fonction:
'SendMail'
J'envoi des Email avec des pieces jointes grace a cette macro

Tout marche sans probleme sauf au niveau de Outlook.
Pour une raison que j'ignore, je ne vois aucune trace de mes Email dans les
éléments envoyés. (Dur dur pour le controle)
Par contre, si je fonctionne en manuel du style envoye vers destinataire en
tant piece jointe dans le menu fichier, j'ai bien une trace dans mes
éléments envoyé.

Y'a t'il un flag ou un reglage special a faire dans la macro, excel, ou
Outlook ????

Qui peux venir en mon aide ?
Merci

Robert
Avatar
Robert
Bonsoir MichDenis

J'ai été jeter un oeil et je n'ai rien vu de proban...

le corps de la macro:
---------------------------------------------------------------------------------------------
subject = Date & " Hello "
ActiveWorkbook.sendmail Array("", "", "", ""),
subject
----------------------------------------------------------------------------------------------

Ce qui est curieux, ca ne marche plus depuis que j'ai XP avec Outlook 2003
Avant j'etais sur Win 2000 avec Outlook (Office XP)
La fonction 'sendmail' marchait sans probleme et j'avais bien le recap dans
mes éléments envoyes.
Depuis que je suis passe a XP avec Office 2003 ca ne marche plus. (enfin la
fonction marche mais pas de recap)

Le plus fou: Si j'intercepte le message dans boite d'envoi (ouvrir le mail
et le refermer), des qu'il part, il se retrouve dans mes éléments envoyés
comme avant ??????
Pourquoi ? Qu'est qui fait que ? est ce un bug ???



A+
Robert

"MichDenis" a écrit dans le message de news:

Va voir là : http://www.rondebruin.nl/sendmail.htm



"Robert" <aucune> a écrit dans le message de news:
456ade8f$0$25954$
Bonjour à tous,

Je rencontre un probleme avec le couple Excel et Outlook 2003 (Office 2003
sur win XP) avec la fonction:
'SendMail'
J'envoi des Email avec des pieces jointes grace a cette macro

Tout marche sans probleme sauf au niveau de Outlook.
Pour une raison que j'ignore, je ne vois aucune trace de mes Email dans
les
éléments envoyés. (Dur dur pour le controle)
Par contre, si je fonctionne en manuel du style envoye vers destinataire
en
tant piece jointe dans le menu fichier, j'ai bien une trace dans mes
éléments envoyé.

Y'a t'il un flag ou un reglage special a faire dans la macro, excel, ou
Outlook ????

Qui peux venir en mon aide ?
Merci

Robert





Avatar
denis le breton
Bonsoir Robert, à défaut de répondre trés précisement à la question pour ma
part je fonctionne de la façon suivante
sous Excel 2003 et XP Pro et Outlook 2003
de plus de mémoire il y a une bibliothèque à activer
et pour agrémenter tout cela deux petits logiciels qui rendent la vie plus
pratique à l'utilisateur : YesXpress.msi et ClickYesSetup.exe


Sub Outlook()
Dim OLF As Outlook.MAPIFolder, olMailItem As Outlook.MailItem, ToContact As
Recipient
Set OLF = GetObject("",
"Outlook.Application").GetNamespace("MAPI").GetDefaultFolder(olFolderInbox)
Set olMailItem = OLF.Items.Add
With olMailItem
.Subject = suj
Set ToContact = .Recipients.Add(mail_dest)
.Body = obj
.Attachments.Add ficenv & Nomvar, olByValue, , ""
.OriginatorDeliveryReportRequested = False
.ReadReceiptRequested = False
.Send
End With
Set ToContact = Nothing
Set olMailItem = Nothing
Set OLF = Nothing
End Sub

en définissant en variable suj, mail_dest, obj, et ficenv pour la pièce jointe
Bon courage
Denis le breton


Bonjour à tous,

Je rencontre un probleme avec le couple Excel et Outlook 2003 (Office 2003
sur win XP) avec la fonction:
'SendMail'
J'envoi des Email avec des pieces jointes grace a cette macro

Tout marche sans probleme sauf au niveau de Outlook.
Pour une raison que j'ignore, je ne vois aucune trace de mes Email dans les
éléments envoyés. (Dur dur pour le controle)
Par contre, si je fonctionne en manuel du style envoye vers destinataire en
tant piece jointe dans le menu fichier, j'ai bien une trace dans mes
éléments envoyé.

Y'a t'il un flag ou un reglage special a faire dans la macro, excel, ou
Outlook ????

Qui peux venir en mon aide ?
Merci

Robert