envoie de mail office 2010 32 bits et 64 bits

[ciril]

Bonjour,
Je rencontre actuellement un problème que je n'arrive pas à résoudre.

Voici le code que j'utilise pour envoyer mon mail depuis excel :

Sub Send_Mail_IT()
   'Selection de la zone de cellule à envoyer par email
  ActiveSheet.Range("A1:J43").Select
   
   'On n'affiche pas le mail
  ActiveWorkbook.EnvelopeVisible = False

   'on sauvegarde automatiquement
  ThisWorkbook.Save
   
   'Options du mail, (objet, introduction, @mail, @mail cc, sujet, etc.. et la fonction SEND)
  With ActiveSheet.MailEnvelope
      .Item.To = "adresse@mail.1.com"
      .Item.Cc = "adresse@mail.2.com"
      .Item.Subject = "Mail du " & ActiveSheet.Range("N2").Value 'M2 = date, saisi dans une cellule par l'utilisateur
     .Item.Send
   End With
   Range("N2").Select

   MsgBox "Mail du " & Range("N2").Value & " envoyé" & Chr(10) & "Fichier enregistré"
End Sub

Ce code fonctionne sous office 2007 32 bits et office 2010 32 bits, mais ne fonctionne pas sous office 2010 64 bits.

Après plusieurs recherche, je sais maintenant qu'il y a des incompatibilités avec 2010 64 bits, mais je parviens pas à trouver de solution.
Je fais donc appel à vous.

Pour info, le script bloque à la ligne "with AtiveSheet.MailEnvelope" uniquement en 64 bits

 

[DoubleZero]

Re : envoie de mail office 2010 32 bits et 64 bits

Bonjour à toutes et à tous,

Bienvenue sur XLD, ciril.

ne fonctionne pas sous office 2010 64 bits

A toutes fins utiles , lire cette discussion.

Bon courage et à bientôt

 

[ciril]

Re : envoie de mail office 2010 32 bits et 64 bits

J'ai lu les pages .... mais je n'ai rien trouvé pour m'aidé, je précise que je débute en VBA.

Je précise aussi, que je ne peux remplacer les versions 2010 64 bits par une autre en 32 bits...
Car je souhaite mettre en place ce fichier excel sur plusieurs Pc pro.