Discussion :

[samtheh]

Bonjour à tous,

Je cherche (toujours) à envoyer un mail depuis une page IE en VBS.
J'ai trouvé un script pour manipuler lotus notes qui fonctionne très bien mais une fois lancé depuis IE il ne fonctionne plus sans doute pour des raisons de sécurité (accès à des variables locales).

Donc je cherchais à réaliser une méthode comme celle là :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub CommandButton2_Click()
URLto = "mailto:toto@vba.com" & "?subject=Sujrt du mail" & "&body=" & Msg
    ActiveWorkbook.FollowHyperlink Address:=URLto
End Sub

Mais cela ne fonctionne pas bien sur puisque ce code provient du VBA (excel).
As t-on un équivalent en VBS ?

Merci de vos aides/réponses/commentaires !

[xanatox]

hello,

après une petite recherche sur google j'ai trouver ça :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
'<<<<<Envoi depuis un serveur Exchange d'entreprise>>>>
 
Set objMail = CreateObject("CDO.Message") 
 
objMail.Subject = "VotreObjet"
objMail.Sender = "E-mail expediteur (apparement ca marche si on met nimporte quoi ^^)"
objMail.To = "E-Mail Destinataire"
objMail.TextBody = "Corps du message"
'objMail.addattachment "c:\chemin\nompiecejointe"
 
'Nom du serveur SMTP 
objMail.Configuration.Fields.Item _
("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "IP de votre serveur Exchange"
 
objMail.Send