Envoyer des mails avec PJ via Outlook Express

  • Initiateur de la discussion Initiateur de la discussion RENAUDER
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

RENAUDER

Nous a quitté
Repose en paix
Bonjour,

Je dois envoyer des mails avec des PJ de manière transparente avec un programme VBA.
Cela marche très bien à mon usine car j'utilise Lotus Notes mais chez moi je n'ai qu'Outlook Express et cela me paraît plus compliqué et d'autre part je n'ai pas ou peu d'éléments.
Si quelqu'un à déjà planché sur ce sujet, je suis preneur.
D'avance merci
 
Re : Envoyer des mails avec PJ via Outlook Express

Bonjour,

Je dois envoyer des mails avec des PJ de manière transparente avec un programme VBA.
Cela marche très bien à mon usine car j'utilise Lotus Notes mais chez moi je n'ai qu'Outlook Express et cela me paraît plus compliqué et d'autre part je n'ai pas ou peu d'éléments.
Si quelqu'un à déjà planché sur ce sujet, je suis preneur.
D'avance merci

Bonjour

Voilà ce que j'ai sous la main pour OE

Code:
'Un message à plusieurs destinataires ( Excel 2003)

'La liste des destinaires est dans la plage A1:A10
Sub MailingListe()
Dim Dest As String
Dim Sujt As String
Dim Msg As String
For Each Lescellules In Range("A1:A10")
Dest = Lescellules.Value
Sujt = "Test d'envoi avec Excel"
Msg = "Bonjour, Excel vous envoie un message avec OE" _
& vbNewLine & "Gilbert"
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msg & ""
SendKeys "%s"
Next
End Sub

Salutations

RGI
 
Re : Envoyer des mails avec PJ via Outlook Express

bonjour à tous
la solution de gilbert fonctionne parfaitement avec outook express
je cherche le moyen de faire la même chose mais avec le gestionnaire de courrier par defaut
 
Re : Envoyer des mails avec PJ via Outlook Express

bonjour à tous
la solution de gilbert fonctionne parfaitement avec outook express
je cherche le moyen de faire la même chose mais avec le gestionnaire de courrier par defaut

Bonjour

J'emploie egalement celle ci mais moins complète que la précédente

Code:
               Comment = InputBox("inscrire un Commentaire", "Commentaire", "Je vous envoie un fichier pour la commande de .........")
                        dest = Feuil2.Range("A2").Text
                        Sujt = "Bon de Commande pour " & annee
                        Msgemail = "Bonjour," & vbLf & vbLf & Comment & vbLf & vbLf & _
                        "Salutations" & vbLf & vbLf & nom
'                        Shell "C:\Program Files\Outlook Express\msimn.exe " & _
'                        "/mailurl:mailto:" & Dest & "?subject=" & Sujt & "&Body=" & Msgemail & ""
'                        SendKeys "%IP" & Chr$(34) & Msg & Chr$(34) & "~" & "%s"
                    
                            ActiveWorkbook.SendMail Recipients:=dest, Subject:=Sujt, ReturnReceipt:=False

Salutations

RGI
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Retour