modifier une macro pour compatibilité

[sebastien450]

Bonjour. Je reviens sur un sujet déja débattu maintes fois mais j'aimerais l'adapter a mon cas!
J'aimerais une macro qui permette d'envoye un mail a partir d'Outtlook ou de Windows Mail.
Dans le dernier cas j'ai deja trouvé et ca marche, je vous met le code. Seulement cela ne marche pas avec Outlook... Or ma priorité et que cela marche avec Outlook! Si vous voulez ajouter des élements tel que l'envoi du fichier en piece jointe, d'un raccourci.... n'hésitez pas ca m'interesse!
merci.
Voila le code a modifier:
Sub MailAvecOEouWinMail1()

Dim WshShell As Object
Dim Dest As String
Dim Sujt As String
Dim Msg As String
Dim MailProg As String
Dim Env As String, Pos As Integer

Set WshShell = CreateObject("WScript.Shell")
MailProg = "C:\Program Files\Windows Mail\WinMail.exe"
Set WshShell = Nothing
Pos = InStrRev(MailProg, "%")
If Pos > 0 Then
Env = Environ(Mid(MailProg, 2, Pos - 2))
MailProg = Mid(MailProg, Pos + 1)
End If

Dest = "sebastien_seb_5@msn.com"
Sujt = "Besoin de pièces"
Msg = "Bonjours Volo il faudrait que tu me commande des pièces pour l'Outil XXX"
Shell Env & MailProg & " /mailurl:mailto:" & Dest & "?subject=" & _
Sujt & "&Body=" & Msg
End
End Sub

 

[tototiti2008]

Re : modifier une macro pour compatibilité

Bonjour,

J'ai déjà fait des recherches sur le sujet et j'ai trouvé du code pour envoyer des mail via Lotus Notes et Outlook mais jamais Outlook Express.
Et il me semble que c'est Outlook Express qui t'intéresse (et non pas Outlook) ?

 

[PascalXLD]

Re : modifier une macro pour compatibilité

Bonjour

regardes ce fil et les autres liens

https://www.excel-downloads.com/threads/envoyer-des-mails-avec-pj-via-outlook-express.94324/

 

[sebastien450]

Re : modifier une macro pour compatibilité

Non non Outlook!
Mais je me demande, si je fait tout simplement apelle a la fonction Outlook dans ma macro a la place de Windows mail ca doit marcher! Mais du coup je ne peut plus faire apelle à Windows mail pour envoyer un mail...
J'ai déja regarder sur le fil mais ca ne repondais pas a ma question.

 

[cbea]

Re : modifier une macro pour compatibilité

Bonjour à tous,

Voici une solution avec Outlook.

 

[sebastien450]

Re : modifier une macro pour compatibilité

Merci CBEA, par contre j'aurais bien aimer garder la structure de ma macro... Sinon je ne voit pas comment mettre la pièce jointe, peut etre tu pourrais me le modifier a ta manière??

 

[cbea]

Re : modifier une macro pour compatibilité

Voici avec l'ajout du fichier en pièce jointe.

 

[sebastien450]

Re : modifier une macro pour compatibilité

Malheuresement je ne peut pas le tester sur Outlook puisque je suis sous vista et avec Windows live. Dit moi pour le fichier par contre on ne peut pas mettre automatiquement suivant un chemin que je defini le racourci vers un classeur? Car je vois trés mal la personne le faire...

 

[sebastien450]

Re : modifier une macro pour compatibilité

J'ai trouver ce lien qui semble vraiment sympathique. je ne peut malheuresement pas tester car je n'ai pas Outlook là. Quelqu'un peut t'il me dire si ca marche??

 

[cbea]

Re : modifier une macro pour compatibilité

Peux-tu fournir le lien ?

Merci

 

[sebastien450]

Re : modifier une macro pour compatibilité

https://www.excel-downloads.com/threads/envoi-message-outlook-sans-piece-jointe.69249/
Voila! Sinon pour les pièces jointes, quelqu'un sait comment enregistrer en PDF une feuille d'un classeur. J'explique: je pense a la fermeture du classeur enregistrer ma feuille en PDF vers un dossier précis. Puis grace au fichier ci-joint je l'enverrai en pièces jointe sur Outlook.




EDIT: c'est bon pour le PDF je sais comment faire, me reste plus qu'a le mettre en pièces jointes.

 

[sebastien450]

Re : modifier une macro pour compatibilité

Ou si vous preferez une autre demande: Comment faire copier coller en lieu et place du texte . Pour mettre une image par exemple!