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 !

agnèsk

XLDnaute Nouveau
bonsoir

j'arrive à ouvrir outlook express avec le code suivant

If LOGICIEL = "Outlook Express" Then
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" _
& ADRESS & "?subject=" & SUJET & "&Body=" & TEXTE
Else ...

mais quid de else si celle (ou celui) qui utilise mon fichier possède microsoft outlook

et bon je ne parle pas des autres mesageries (mais si vous avez la réponse, cela satisfera ma curiosité)
 
Re : microsoft outlook

Pour ma part j'ouvre outlook de cette facon :

Code:
Sub EnvoiMail()

Dim ElémentCourrier As Object
Dim Sujet As String
Dim AdresseElec As String
Dim Msg As String

    Sujet = "CR Semaine"
    AdresseElec = "LeChef1@direction.com; LeChef2@direction.com"
    Msg = "Bonjour," & vbCrLf & vbCrLf  '''''''''CORRIGER LES FOTES D'ORTO
    Msg = Msg & "J'ai le plaisir de vous adresser, "
    Msg = Msg & "ci-joint, le CR de la semaine "
    Msg = Msg & N°Sem & vbCrLf & vbCrLf
    Msg = Msg & "Cordialement" & vbCrLf
    Msg = Msg & "Signé : MOI"
    
    'Création de l'élément de courrier et envoi
    Set ElémentCourrier = CreateObject("Outlook.Application").CreateItem(0)
    With ElémentCourrier
        .To = AdresseElec
        .Subject = Sujet
        .Body = Msg
'        .Attachments.Add (MonChemin)
        .Display  ' ou .send
    End With

End Sub

pour les autres logiciels je sais pas
 
- 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
  • Question Question
Microsoft 365 VBA sur outlook
Réponses
14
Affichages
1 K
Retour