Lien sur outlook

[ptitepo]

Bjr,

J'ai trouvé un code qui m'envoi un message sur outlook quant je click sur un bouton, il marche très bien, le problème c'est qu'il m'ouvre outlook express, et moi je voudrais qu'il m'ouvre outlook (version normal quoi). J'ai essayé de changé l'adresse, mais aucun effet a par des message d'erreur. Comment je peux faire?
Merci

Dim Adresse As String, Sujet As String, Texte As String


Adresse = "Destinataire01@mail.fr"
Sujet = "Le sujet"
Texte = "Bonjour," & vbCrLf & vbCrLf _
    & "VALIDER" & vbCrLf & vbCrLf & _
    "Cordialement" & vbCrLf & Environ("UserName")
 
Shell "C:\Program Files\Outlook Express\msimn.exe " & "/mailurl:mailto:" & _
    Adresse & "?subject=" & Sujet & "&Body=" & Texte

 

[JCGL]

Re : Lien sur outlook

Bonjour à tous,

Remplace :

Shell "C:\Program Files\Outlook Express\msimn.exe "

par :

Shell "Outlook.exe "

Pas testé...

A+

 

[ptitepo]

Re : Lien sur outlook

🙁 non, ca ne fonctionne pas, ca me met un joli message d'erreur avec une grosse croix rouge "l'argument de la ligne de commande n'est pas valide, verifier le commutateur que vous utiliser". Qu'est ce que ca veut dire?

 

[JCGL]

Re : Lien sur outlook

Re,

Peux-tu essayer :

 Sub OuvrirOutLook()
Shell "OUTLOOK.EXE", 3
End Sub

3 pour fenêtre maxi et 6 pour fenêtre réduite

Je n'ai pas Outlook ici, désolé (j'ai MSOffice mais pas Outlook de monté)

A+

 

[ptitepo]

Re : Lien sur outlook

J'ai testé, seul ca marche, dés que je l'integre a mon code ca me met "fichier introuvable" 😕 c'est bizare

 

[JCGL]

Re : Lien sur outlook

Re,

Il te faut alors revoir ton code
Si tu ouvres bien Outlook, c'est déjà un bon point : c'était ta question...

Va faire un tour dans la FAQ , MichelXLD et Outlook ( de mémoire c'est sur le Wiki 3)

A+

 

[Matjul]

Re : Lien sur outlook

Bonjour,
Avec le code suivant, tu pourras envoyer un message avec Outlook:

ub lance_outl()

Dim Ol As New Outlook.Application
Dim Olmail As MailItem
Dim CurrFile As String

Set Ol = New Outlook.Application
Set Olmail = Ol.CreateItem(olMailItem)
corps = "Ce message est un test"
With Olmail
    
    .To = "XXXXX@XXXX.fr"
    '.CC = "XXXXX@XXXXX
    '.Subject = Range("B2").Value
     .Subject = "Ce message est un test"
    '.Body = Range("B3").Value
        .body = "Bonjour" & Chr$(10) & corps & Chr$(10) & Chr$(10) & "Formule de politesse" & Chr$(10) & "Mon Prénon et nom"
       '.Attachments.Add "c:\data\essai.doc"
        '.Display
        
            
          .Send
'On peut switcher entre .send et .display selon que l'on veut envoyer le mail (send) ou seulement le préparer et le vérifier(display)
End With
End Sub

 

[ptitepo]

Re : Lien sur outlook

J'ai testé ton code, et j'ai un message d'erreur "type défini par l'utilisateur non défini" sur "Ol As New Outlook.Application" :S