Envoi feuille excel par macro

Signaler
Messages postés
10
Date d'inscription
dimanche 7 juin 2009
Statut
Membre
Dernière intervention
9 mars 2012
-
Messages postés
47
Date d'inscription
dimanche 16 mars 2008
Statut
Membre
Dernière intervention
14 octobre 2009
-
Voilà, j'essaie d'envoyer 1 classeur par mail via macro, pour tester ma macro j'essaie de m'envoyer le classeur mais celui-ci n'arrive jamais dans ma boîte mail, Pourriez-vous m'aider SVP.
Je vous communique le code que j'ai créé
With ActiveWorkbook
ActiveWorkbook.SendMail recipients:=[mailto:tartempion@chezmoi.fr tartempion@chezmoi.fr], _
                          Subject:="Test envoi classeur", _
                          ReturnReceipt:=True
End With
ActiveWorkbook.Close SaveChanges:=False
Application.DisplayAlerts = False
Pour info, j'utilise Excel 2003 et outlook est configuré correctement
merci pour vos réponses

4 réponses

Messages postés
47
Date d'inscription
dimanche 16 mars 2008
Statut
Membre
Dernière intervention
14 octobre 2009
2
Salut, voici le code qui fonctionne sous Outlook 2007.

Dim myOlApp As Outlook.Application
Dim myItem As Outlook.MailItem
Set myOlApp = New Outlook.Application
Set myItem = myOlApp.CreateItem(Outlook.OlItemType.olMailItem)

With myItem
'Ajoute les destinataire
.To = "George.Dupond@..."
.Subject = "Test d'envoi de ce classeur"
.Body = Corps
'Ton classeur à envoyer
.Attachments.Add ThisWorkbook.Path & "" & ThisWorkbook.Name
.Send
'.Display()
End With
'initialise les objets
Set myOlApp = Nothing
Set myItem = Nothing

Regarde s'il fonctionne avec Oulook 2003.
N'oublie pas d'ajouter la référence de Outlook
Messages postés
10
Date d'inscription
dimanche 7 juin 2009
Statut
Membre
Dernière intervention
9 mars 2012

Merci, je vais essayer de suite
Messages postés
10
Date d'inscription
dimanche 7 juin 2009
Statut
Membre
Dernière intervention
9 mars 2012

 Désolé ca ne fonctionne pas il me met "myOlApp As Outlook.Application" type définit non définit par l'utilisateur. version d'outlook 6. bon je vais essayer autre chose. merci quand même.
Messages postés
47
Date d'inscription
dimanche 16 mars 2008
Statut
Membre
Dernière intervention
14 octobre 2009
2
Quelle version de outlook utilises-tu?
Tu as bien coché la référence concernant outlook dans le VBE?