/*
 * - Beispiel: Mail versenden
 *
 * letzte ─nderung: xx.xx.xxxx / Weckmann
 *
 */

CreateBackground 'SendMail to: sweckman@vistec.net'

vText = '\r\nWill you send the installation-log to the author from SwSetup ?'
If __Language__ == 'deu'
	vText = '\r\nSoll die Installations-Logdatei per E-Mail an den Ersteller dieses Programmes gesendet werden ?'
EndIf

vMailEmpfaenger = 'sweckman@vistec.net'
vDialogRc = Dialog vText vMailEmpfaenger
if vDialogRc == 'OK'
	vMailText = ' '
	fp = fopen '%__WindowsVerzeichnis__%\\swsetupg.log' 'r'
	if __error__ != 0
		DialogLoggingOff		// Log-Datei wird gelesen, Bitte warten ...
		:nextLog
		vEingabe = ' '
		fgets fp vEingabe
		if __error__ == 1
			strcat vMailText vEingabe
	   		goto :nextLog
		endif
		fclose fp
	endif
	DialogLoggingOn
	SendMail vMailEmpfaenger 'SwSetup-Installation' vMailText
endif