my $Word = Win32::OLE->new('Word.Application', 'Quit');
		$Word->{'Visible'} = $debug;         # if you want to see what's going on
		$Word->Documents->Open("$plpath$tmp_mail$Datei") || die("Unable to open document ", Win32::OLE->LastError());
		
		my $Versender1 = $Word->ActiveDocument->FormFields("Text1")->Result;         
		my $Versender2 = $Word->ActiveDocument->FormFields("Text18")->Result;         
		my $VersStr = $Word->ActiveDocument->FormFields("Text20")->Result;