envoie fichier par mail

[pascalmou]

bonjour,


Je désire envoyer automatiquement a la fermeture et enregistrement de mon application a une personne, voir plusieurs avec outlook.

J'ai un bout de code celui la fonctionne bien, m'ouvre mon message outlook, mais ne remplis pas les case A:

je doit la renseigner manuellement

Y'a t 'il une solution

Je vous envoi mon petit fichier a compléter........ :silly: :silly: [file name=testenvoimail.zip size=7942]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/testenvoimail.zip[/file]

 

[pascalmou]

plusieurs personnes sont passez, mais ca seche.........

 

[MichelXld]

bonsoir Pascal

tu peux tester cette macro

Sub EnvoiMail()
'
'necessite d'activer la reference Microsoft Outlook xx.x Object Library
'dans l'editeur de macros:
'menu outils
'references
'cocher la ligne :Microsoft Outlook xx.x Object Library
'cliquer sur 'ok' pour valider
'
Dim OutApp As Outlook.Application
Dim OutMess As Outlook.MailItem
Dim myLst As Range, Valeur As Range

Set OutApp = CreateObject('outlook.application')
Set OutMess = OutApp.createitem(olmailitem)
Set myLst = Sheets('myadress').Range('A1:A2')

For Each Valeur In myLst
OutMess.Recipients.Add Valeur
Next Valeur

OutMess.Subject = 'Inscrire ici le sujet de l'envoie'
OutMess.Attachments.Add ActiveWorkbook.FullName
OutMess.send
End Sub

bonne soiree
MichelXld

 

[ChTi160]

Salut 'pascalmou '
bonsoir MichelXLD
lorsque je teste ta procédure j'ai un message
qui dit

Erreur d'excecution '_1629028350(9ee70002)':
Erreur AUTOMATION


je ne suis pas un pro et je n'utilise pas encore OutLook il est ouvert
mais avec de l'aide
oupssssssssssss javais pas enregistré mon classeur
mille excuses

Message édité par: ChTi160, à: 18/03/2005 21:27

 

[pascalmou]

Merci ca fonctionne

 

[pascalmou]

Tous marche bien sur ma machine, mais j'ai une erreur sur le poste d'un de mes collaborateur, pourtant j'ai bien mis a jour le fichier dans Macro outil réference coché Microsoftxxx.xx outlook library

Les erreur sont en image dans le fichier zip joint soit erreur VBA [file name=erreur vba_20050323010036.zip size=24614]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/erreur vba_20050323010036.zip[/file]

Message édité par: pascalmou, à: 23/03/2005 01:00

 

[pascalmou]

Et l'erreur macro qui apparait sur ma feuille [file name=erreur macro_20050323010121.zip size=33561]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/erreur macro_20050323010121.zip[/file]

 

[MichelXld]

bonjour Pascal , bonjour Jean-Marie

Pascal verifies que la reference Outlook est bien cochée
xx.x depend de la version d'Outlook que tu utilises

quelles versions , d'Excel , d'Outlook utilises tu sur le poste qui pose probleme ?


bonne journée
MichelXld

 

[pascalmou]

les versions sont identiques sur les 2 poste la case coché, se sont les version 10-4524-4219-sp2 pour excel 2002 et 10-4219-4219-SP2 pour outlook 2002

 

[MichelXld]

bonjour Pascal

ce n'est pas super comme solution mais peux tu regarder ce qui ce passe en écrivant


Dim OutApp As Object
Dim OutMess As Object


bonne journée
MichelXld

 

[pascalmou]

Merci michel j'éssaie cela des mon retour de congé de paques soit Mardi