envoie fichier par mail

P

pascalmou

XLDnaute Junior

• 18 Mars 2005

• #2

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 18 Mars 2005

• #3

bonsoir Pascal

tu peux tester cette macro

Code:

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

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 18 Mars 2005

• #4

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

 

Vote positif 0 Vote négatif

P

pascalmou

XLDnaute Junior

• 18 Mars 2005

• #5

Merci ca fonctionne

 

Vote positif 0 Vote négatif

P

pascalmou

XLDnaute Junior

• 23 Mars 2005

• #6

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

 

Pièces jointes

• erreur vba_20050323010036.zip

  24 KB · Affichages: 24

Vote positif 0 Vote négatif

P

pascalmou

XLDnaute Junior

• 23 Mars 2005

• #7

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]

 

Pièces jointes

• erreur macro_20050323010121.zip

  32.8 KB · Affichages: 32

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 23 Mars 2005

• #8

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

 

Vote positif 0 Vote négatif

P

pascalmou

XLDnaute Junior

• 24 Mars 2005

• #9

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

 

Vote positif 0 Vote négatif

M

MichelXld

XLDnaute Barbatruc

• 25 Mars 2005

• #10

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

 

Vote positif 0 Vote négatif

P

pascalmou

XLDnaute Junior

• 25 Mars 2005

• #11

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

 

Vote positif 0 Vote négatif