cde sendkey

[janus]

Bonjour au Forum;j'envois mon classeur actif par vba;mais je voudrais neutraliser (ou repondre par vba) le message outlook demandant la confirmation de l'envoi;
voici mon code :
ActiveWorkbook.Sendmail ('toto@free.fr')
Application.SendKeys 'e'
Mais ça ne fct pas
Merci de votre aide

 

[Tomsound]

Bonsoir,

Essaie comme ceci :

Sub envoimail()

Dim monfichier As String
monfichier = ActiveWorkbook.Path & '\\' & ActiveWorkbook.Name

Dim MonOutlook As Object
Dim EMail As Object
Set MonOutlook = CreateObject('Outlook.Application')
Set EMail = MonOutlook.CreateItem(olMailItem)
EMail.To = 'tomtom@tom.net'
EMail.attachments.Add (monfichier)
EMail.Subject = 'fichier' & monfichier
EMail.Body = 'Madame, Monsieur,' & _
    (Chr(13)) & (Chr(13)) & _
    'Voici votre fichier ' & _
    'Cordialement,' & _
    (Chr(13)) & (Chr(13)) & _
    'Tom'
EMail.display
SendKeys '^' & '~'
Set EMail = Nothing
End Sub

Bonne soirée