Wojny wsadowe – wysyłamy maila

Wojen wsadowych ciąg dalszy…

Dzisiaj zachciało mi się dodać do mojego skryptu nocnych buildów aplikacji wysyłanie mailem loga z owego buildu. Czystym batchem nie udało mi się tego osiągnąć, ale na szczęście już od dość dawna pod Windowsem działa zarówno JavaScript jak i VBScript, który ma dostęp do kilku ciekawych obiektów systemowych. Jednym z takich obiektów jest CDO.Message.

Tworzymy najpierw skrypt VB, który będzie wysyłał maila za pośrednictwem GMail:

Set objMessage = CreateObject("CDO.Message")
objMessage.From = "builder@firma.pl" 
objMessage.To = WScript.Arguments.Item(0)
builtPackage = WScript.Arguments.Item(2)
objMessage.Subject = "Nightly build report for " & builtPackage
objMessage.TextBody = builtPackage & " nightly build results in attachement." 
If WScript.Arguments.Count > 3 Then objMessage.AddAttachment WScript.Arguments.Item(3) End If

schema = "http://schemas.microsoft.com/cdo/configuration/"
Set msgConf = objMessage.Configuration
msgConf.Fields.Item (schema & "sendusing") = 2
msgConf.Fields.Item (schema & "smtpserver") = "smtp.gmail.com"
msgConf.Fields.Item (schema & "smtpserverport") = 465
msgConf.Fields.Item (schema & "smtpauthenticate") = 1
msgConf.Fields.Item (schema & "sendusername") = WScript.Arguments.Item(0)
msgConf.Fields.Item (schema & "sendpassword") = WScript.Arguments.Item(1)
msgConf.Fields.Item (schema & "smtpusessl") = true
msgConf.Fields.Update

objMessage.Send()

Przyjmuje on trzy wymagane parametry i czwarty opcjonalnie. Pierwsze dwa to user i hasło do konta GMail, trzeci to tekst użyty w temacie i body. Czwarty parametr to plik, który zostanie dołączony jako załącznik do maila. Uwaga: ścieżka do pliku musi być bezwzględna.

Do swojego skryptu budującego dodałem takie cuś:

if "%MAIL_USER%" NEQ "" (
if "%MAIL_PASSWD%" NEQ "" (
sendmail.vbs %MAIL_USER% %MAIL_PASSWD% %PRODUCT_NAME%_%PRODUCT_MAJOR%.%PRODUCT_MINOR% %BUILD_LOG%
)
)

Sprawdza on, czy zdefiniowane są zmienne środowiskowe MAIL_USER i MAIL_PASSWD i jeśli tak, to wysyła maila.

🙂

Facebooktwittergoogle_plusredditpinterestlinkedinmail
twitterlinkedin