Display n'affiche pas (macro excel envoi mail via outlook)

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Display n'affiche pas (macro excel envoi mail via outlook)

Crochette

Bonjour,

J'ai trouvé une macro excel qui envoie des mails avec images via outlook, elle fonctionne très bien (merci à l'auteur: Ron de Bruin), cependant je souhaite voir le mail avant de l'envoyer. J'ai essayé de changer .Send par .Display mais cela ne fonctionne pas et je ne trouve pas de solution.
Quelqu'un a-t-il une explication?

Code :

Sub Send_Selection_Or_ActiveSheet_with_MailEnvelope()
Dim Sendrng As Range
On Error GoTo StopMacro
With Application
.ScreenUpdating = False
.EnableEvents = False
End With
'Note: if the selection is one cell it will send the whole worksheet
Set Sendrng = Selection
'Create the mail and send it
With Sendrng
ActiveWorkbook.EnvelopeVisible = True
With .Parent.MailEnvelope
' Set the optional introduction field thats adds
' some header text to the email body.
.Introduction = "This is a test mail."
' In the "With .Item" part you can add more options
' See the tips on this Outlook example page.
' http://www.rondebruin.nl/mail/tips2.htm
With .Item
.Send
.To = ""
.Subject = "My subject"
End With
End With
End With
StopMacro:
With Application
.ScreenUpdating = True
.EnableEvents = True
End With
ActiveWorkbook.EnvelopeVisible = False
End Sub

Merci de votre aide.

Crochette. :??:

Publicité

Crochette

La solution était de supprimer la ligne 41, maintenant ça marche nickel.

Merci.

DraX

♪ | Membre raccourci | 12th

Ce sujet a été déplacé de la catégorie Hardware vers la categorie Windows & Software par DraCuLaX

Message cité 1 fois

---------------
| Un malentendu du cul | boum boum ! | La roulette

Crochette

DraX a écrit :

Ce sujet a été déplacé de la catégorie Hardware vers la categorie Windows & Software par DraCuLaX

C'est moi-même qui ai écrit la solution à mon problème sur ce poste, je sais bien qu'il est résolu! Alors pourquoi bloquer mon sujet d'aujourd'hui, je suis toujours sur le même code mais ma question est totalement différente et n'a à mon sens rien à faire ici!

FORUM HardWare.fr

Windows & Software

Logiciels

Display n'affiche pas (macro excel envoi mail via outlook)

Sujets relatifs
Recupérer dossiers Outlook après formatage	outlook express vers outlook 2010
[Excel] Generer une base de donnée	[Excel] Copier le contenu d'une cellule sans caractère d'échappement?
Excel : fonction recherchev +si	Redirection mails exchange
Outlook : liste d'adresses depuis MySQL	CREER ET GERER UN PLANNING AVEC EXCEL
Plantage Outlook 2007
Plus de sujets relatifs à : Display n'affiche pas (macro excel envoi mail via outlook)

Page générée en 0.047 secondes