Posez votre question Signaler

Outloock expresse en ligne de commande

Imazighen 1Messages postés vendredi 17 octobre 2003Date d'inscription 6 janvier 2006 Dernière intervention - Dernière réponse le 6 janv. 2006 à 15:30
Hi; qq sait -il comment lancer outlook express en ligne de commande ( mode DOS) en passant les parametres du destinataire et du texte ? Si je met par ex. sous le raccourci outlook les parametres suivant :
"C:\Program Files\Outlook Express\MSIMN.EXE" /mailurl:mailto:toto@toto.fr?subject=test&cc=tata@copy.fr&body=ceci%20et%20un%20test
et bien ça marche ! si je fait la même chose mais dans un fichier .bat par ex, ca ne marche plus. ??
Merci
Lire la suite 
Réponse
+3
moins plus
Slt,

Utiliser plutôt un script vbs comme celui-ci :

Copier/coller dans un fichier texte et renommer : EnvoieCourriel.vbs

' ******************************************************************* 
'
' Syntaxe d'appel en mode console :
'     EnvoieCourriel.vbs "destination@fai.net" "Mon message"
'
' ******************************************************************* 
'
' * Utilisation de OutlookExpress pour courrier sortant
' * Donner l'adresse smtp
' * 
' Déclaration de variables
Dim objMail ' Objet Courriel
Dim oIE     ' Objet Navigateur
Dim Reponse ' Chaine de caractères
Dim Message ' Chaine de caractères

dim oArgs, sDestination, sPieceJointe

Set oArgs = WScript.Arguments

If (oArgs.Count > 1) Then
    If ( oArgs(0) <> "") Then
      sDestination = oArgs(0)
    Else
      sDestination = "destination@fournisseur.net"
    End if

    If (oArgs(1) <> "") Then
      Reponse = oArgs(1)
    Else
      Reponse = ""
    End if
Else
      Wscript.Echo "Arguments incomplet !"
      Wscript.Quit
End if

'Création d'une instance du facteur (Outlook Express)
Set objMail = CreateObject("CDO.Message")
'set objMail = Server.CreateObject("CDO.Message")

With objMail

  'Adresse source -> Modifiable mais Obligatoire
  .From = "monadresse@monfai.net"
  'Adresse de destination -> Modifiable mais Obligatoire
  .To = "destination@fournisseur.net"

  .Subject = "Adresse virtuel ..."
  Message = "Salut," & VbCrlf & VbCrlf & "->->-> Automatisme" & VbCrlf & VbCrlf
  .TextBody =  Message & Reponse

  'Adresse smtp du serveur de courrier [ FAI ]-> Obligatoire
  .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.monfai.net"
  .Configuration.Fields("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
  .Configuration.Fields.Update

  .Send

End With

Set objMail = nothing

Wscript.Quit


Lupin
Ajouter un commentaire
Ce document intitulé «  Outloock expresse en ligne de commande  » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes.

Le fait d'être membre vous permet d'avoir des options supplémentaires.