envoi feuille excel par macro

Question

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

cs_Joh76 · Answer

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

cs_sam1975 · Answer

Merci, je vais essayer de suite

cs_sam1975 · Answer

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.

cs_Joh76 · Answer

Quelle version de outlook utilises-tu?
Tu as bien coché la référence concernant outlook dans le VBE?

Envoi feuille excel par macro

4 réponses

Votre réponse

Discussions similaires