Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Résolu : finalisation d'envoie de mail depuis outlook

  • Initiateur de la discussion Initiateur de la discussion Jubei1
  • 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 !

Jubei1

XLDnaute Nouveau
Bonjour,

Je crée ce topic car ma demande est simple mais spécifique. J'ai ce code :
Sub MailOXpress()
Dim dest$, Sujet$, texte$
dest = " prénom.nom@gmail.com"
Sujet = "Valorisation du stock de palettes"
texte = "Valorisation du mois : " & Sheets("Suivi").Range("A2").Value
Shell "C:\Program Files\Outlook Express\msimn.exe " & _
"/mailurl:mailto:" & dest & _
"?subject=" & Sujet & _
"&Body=" & texte
End Sub

je souhaiterai rajouter une ligne pour confirmer l'envoi du mail et une autre ligne pour fermer le logiciel outlook.

Quelqu'un à une idée ???

Merci.
 
Dernière édition:
Re : finalisation d'envoie de mail depuis outlook

Bonjour


Outlook Express ne se pilote pas, il faut bricoler et simuler quelques touches de clavier avec l'instruction SendKeys, ce qui n'est pas la panacée.

Tu pourrais envisager d'autres méthodes dont :
- la méthode followhyperlink, je crois que tu n'aurais pas besoin de valider la boîte de dialogue.
- l'usage du contrôle MAPIVoilà un de nos vieux fils sur le sujet évoquant ces 3 méthodes, mais il en existe sûrement d'autres depuis.https://www.excel-downloads.com/threads/sendmail-avec-un-m-daccompagnement-de-pj.6458/
 
Re : finalisation d'envoie de mail depuis outlook

Bonsoir à tous

Jube1
Un petit conseil en passant
NE PAS METTRE de vrai adresse email dans un message sur un forum public.
Tu risques désormais d'être spammé.
Si il n'est pas trop tard, tu peux modifier ton message (en cliquant sur Modifier le message) et mettre un fausse adresse ou simplement
prenom.nom@gmail.com
 
Re : finalisation d'envoie de mail depuis outlook

Je viens de changer ça, j'avais pas fait attention. Je te remercie.
Au passage, sais-tu comment on peut supprimer un topic que l'on a créer, supprimer un message et mettre un topic en "mode résolu" ?
 
Re : finalisation d'envoie de mail depuis outlook

Bonsoir à tous

XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX
 
Re : finalisation d'envoie de mail depuis outlook

Bonsoir ,

une petite routine à appelée par :

call mail("Manger, boire et dormir")

par exemple

Code:
Sub Mail(Message As String)
Dim ObjOutlook As New Outlook.Application
Dim oBjMail As Object
Dim Destinataire As String
     
    Destinataire = "TOTO@GMAIL.com"
    Set ObjOutlook = New Outlook.Application
    Set oBjMail = ObjOutlook.CreateItem(olMailItem)

     With oBjMail

        .To = Destinataire ' le destinataire
       ' Stop ' Attention adresse d'essai
        .cc = "Destina@GGMAIL.com"
       .Subject = "Mon titre"          ' l'objet du mail
       .Body = Message
   
    'Pj Pif
     '.Attachments.Add Chemin_Envoyé & "P_I_F_" & NomPrenom & ".pdf"
     ' .Display  '   Ici on peut supprimer pour l'envoyer sans vérification
     ' Stop ' pour test ainsi que display
     .Send
    End With
    Set oBjMail = Nothing
    Set ObjOutlook = Nothing

End Sub
 
- 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

Réponses
10
Affichages
549
Réponses
2
Affichages
956
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…