Envoi d'un courriel depuis Excel avec Outlook.

Question

Bonjour,

J'ai plusieurs correspondants qui, depuis leur PC, utilisent un fichier gabarit Excel extension (*.xltm) qui leur permettent d'envoyer un courriel à quatre endroits différents sans avoir à faire une ouverture de Outlook.

Ce fichier est stocké sur OneDrive donc chacun peut s'en servir. Il crée une copie et ce sera elle qu'ils envoient.

La macro de l'envoi et de la sauvegarde du fichier est apparemment simple, elle utilise le schéma proposé par nombres personnes.

Mais voilà, sur mon ordinateur cela fonctionne parfaitement, mais pas sur certains autres.

La référence Microsoft Outlook 16.0 Object Library est active.

La procédure de départ est la suivante et c'est là que cela ne fonctionne plus, pourquoi ?

Sub Sauve_et_envoi()

Dim CourrielApp As Outlook.Application

Dim Courriel As Outlook.MailItem

Set Courriel = CourrielApp.CreateItem(olMailItem)

Set CourrielApp = New Outlook.Application

Erreur d'exécution "91" :

Variable objet ou variable de bloc With non définie.

Courriel = Nothing

olMailItem = 0

'-------------------------------------------------------

Dans un ordre différent :

Sub Sauve_et_envoi()

Dim Courriel As Outlook.MailItem

Dim CourrielApp As Outlook.Application

Set CourrielApp = New Outlook.Application

Set Courriel = CourrielApp.CreateItem(olMailItem)

Erreur d'exécution "-2147023728 (80070490)":

Élément introuvable.

CourrielApp = Nothing

Outlook.Application = < Variable objet ou variable de bloc With non définie >.

'--------------------------------------------------------

Y-a-t-il quelque chose que je dois faire (enclencher) pour que cela fonctionne.

Je vous remercie de votre coopération.

J'ai remarqué aussi que sur mon ordinateur, lorsqu'il arrive sur Set Courriel = **CourrielApp.CreateItem(olMailItem)**il y a un léger temps d'attente.

Comme sil lui fallait un laps de temps pour aller chercher l'information.

Bonnes salutations

Answer 1

Bonjour
peut-être que les bonnes personnes ne sont pas passées, mais si je me souviens bien il y a des soucis à vouloir envoyer du courriel à partir de Excel.
On conseille plutôt de partir de Outlook et aller piquer les infos dans Excel.
Ce sont des vieux souvenirs et la mémoire défaille parfois.
Sinon j'ai regardé dans ma cave Word et j'ai trouvé ceci pour envoyer un courriel avec pièce(s) jointe (s) :

Sub SendEMailwithAttachments()
Dim olMailItem As Integer
Dim myAttachments
' Cette routine envoi des mails avec un attach
'
Dim ol As Object, myItem As Object
Set ol = CreateObject("outlook.application")
Set myItem = ol.CreateItem(olMailItem)
myItem.to = "xxxxxxxxxxx@xxxxxxxx"
myItem.Subject = "Test Mail"
myItem.Body = "Le test d'envoi." & Chr(13) & Chr(13) & "Bye All"
Set myAttachments = myItem.Attachments
myAttachments.Add ActiveDocument.FullName '
MsgBox "Now sending to " & myItem.to
myItem.Send
Set ol = Nothing
End Sub

Il y a bien un peu de word là-dedans, mais pas trop.

J'ai aussi un truc avec Redemption, ça ne vous dit rien ?

Answer 2

Hello,

... ou je me suis mal exprimé. Dans ce cas faites-moi signe.

Merci d'avance.

Answer 3

Hello,

Je constate que ce n'est pas simple au vu du nombre de visites et au nombre de réponses.