print FILE "\n\n\nWir Bestätigen, dass das oben genannte Material gesendet wurde.\n\n\n\n\n\nMit freundlichen Grüßen\nVICI Connect"; 

#handle schließen
close(FILE);

#View muss wieder aus der tabelle entfernt werden
my $sql = qq{DROP VIEW VICIadmin_development.ubergabeview};
my $sth = $dbh->prepare( $sql );
$sth->execute();

#Datenbank-Handle "so, das wars..."
$sth->finish();

#Datenbank-Handle wird geschlossen
$dbh->disconnect();

&mailversand();

sub mailversand 
{
	sleep 15;
    #Die Datenausgabe kann auch bei "*1" direkt stattfinden, anstatt, dass diese als Attachment gesendet wird.
	
 
 # my $mailtext = "Das ist der Text\nden ich gerne senden wuerde..."; 
  
  
  my $sender = new Mail::Sender 
  {
                smtp => 'mail.gmx.net',
                from => '546@gmx.de',
                auth => 'LOGIN',
                authid => '12345',
                authpwd => 'jjjjjjjj',
                on_errors => undef,
  }  or die "Can't create the Mail::Sender object: $Mail::Sender::Error\n";

$sender->MailFile
 (
  {
		to => $usermails,
		subject => 'Spotinformationen',
		msg => "Sehr geehrte Damen und Herren, \n\nblablabla '$spotname' im Zeitraum vom '$zeitraumvon' bis zum '$zeitraumbis'.\n\n\nAnhang:\n$dateiname", 
  		file => $dateiname,
   }
);