OVH Cloud OVH Cloud

envoi piece jointe avec Outlook

2 réponses
Avatar
Jerem
Bonjour,

j'arrive a créer un nouveau message avec ma pièce jointe et un destinataire.

j'utilise la macro suivante :

Application.Dialogs(xlDialogSendMail).show "Toto1@toto.ch", "Objet " &
Range("b13").Value
fin:


seulement je n'arrive pas a mettre un destinataire en copy

Qui peut m'aider

merci par avance

cdt Jerem

2 réponses

Avatar
papou
Bonjour jerem
Utilise plutôt cette méthode sur laquelle tu auras accès à plus de choses :
Dim ol As Object
Dim olmail As Object
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = ""
.CC = ""
.Subject = "Objet " & Range("B13").Value
.Body = "Ceci n'est qu'un test d'envoi de message via Excel VBA"
.Send
End With
Set olmail = Nothing
Set ol = Nothing


Cordialement
Pascal

"Jerem" a écrit dans le message de news:
OV%23%
Bonjour,

j'arrive a créer un nouveau message avec ma pièce jointe et un
destinataire.

j'utilise la macro suivante :

Application.Dialogs(xlDialogSendMail).show "", "Objet " &
Range("b13").Value
fin:


seulement je n'arrive pas a mettre un destinataire en copy

Qui peut m'aider

merci par avance

cdt Jerem



Avatar
Jerem
Bonjour Pascal,

j'ai essayé ta méthode. effectivement j'ai accès a plus de chose mais
certains problème persistent :
- mon document n'apparaît pas en pièce jointe
- j'aimerais voir la boite de dialogue du message avant de l'envoyer.

Je vais essayer de mixer les 2 méthodes pour voir si ça fonctionne

Cdlt



"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:

Bonjour jerem
Utilise plutôt cette méthode sur laquelle tu auras accès à plus de choses
:
Dim ol As Object
Dim olmail As Object
Set ol = CreateObject("Outlook.Application")
Set olmail = ol.CreateItem(olMailItem)
With olmail
.To = ""
.CC = ""
.Subject = "Objet " & Range("B13").Value
.Body = "Ceci n'est qu'un test d'envoi de message via Excel VBA"
.Send
End With
Set olmail = Nothing
Set ol = Nothing


Cordialement
Pascal

"Jerem" a écrit dans le message de news:
OV%23%
Bonjour,

j'arrive a créer un nouveau message avec ma pièce jointe et un
destinataire.

j'utilise la macro suivante :

Application.Dialogs(xlDialogSendMail).show "", "Objet " &
Range("b13").Value
fin:


seulement je n'arrive pas a mettre un destinataire en copy

Qui peut m'aider

merci par avance

cdt Jerem