#================================================================
#- Send image
#================================================================
#
sub send_image {
    my $message_body;
    # Adjust sender, recipient and your SMTP mailhost
    my $from_address = $from;
    my $to_address = $email;

    # Adjust subject and body message
    if ( $testmode ) {
        $message_body = "Thank you for performing the transfer test. It's good until <b>$msg_body_expdate</b>.<br /><br />Visit <a href=\"http://www./specialoffer\">http://www./specialoffer</a> now to take advantage of this exciting special one week offer of 10% off<br /><br />";
    } else {
        $message_body = "Attached is the chi card you ordered. It's good until <b>$msg_body_expdate</b>.";
    }
    my $subject = "Chi-Card delivery service";


    # Create the multipart container
    my $msg = MIME::Lite->new (
                               From    => $from_address,
                               To      => $to_address,
                               BCC     => $bcc,
                               Subject => $subject,
                               Type    =>'multipart/mixed'
                               ) or die "Error creating multipart container: $!\n";

    # Add the text message part
    $msg->attach (
                  Type => 'text/html',
                  Data => qq{ $message_body }
                  ) or die "Error adding the text message part: $!\n";

    # Add the excel file
    $msg->attach (
                  Type        => 'image/jpeg',
                  #Encodxing    => 'base64',
                  Path        => $chicardcustomed,
                  Filename    => $filename,
                  Disposition => 'attachment'
                  ) or die "Error adding $chicardcustomed: $!\n";


    # Now send
    $msg->send("sendmail") or die "Error e-mailing: $filename.\n";
}

#================================================================
#- Send info
#================================================================
#
sub send_info {
    # Adjust sender, recipient and your SMTP mailhost
    my $from_address = $from;
    my $to_address = $infoemail;

    # Adjust subject and body message
    my $message_body = "<h2>The following visitor requested information.</h2><b>Name:</b> $string<br><b>E-mail:</b> $email<br>";
    my $subject = "$string is requesting information.";

    # Create the multipart container
    my $msg = MIME::Lite->new (
                               From    => $from_address,
                               To      => $to_address,
                               BCC     => $bcc,
                               Subject => $subject,
                               Type    =>'multipart/mixed'
                               ) or die "Error creating multipart container: $!\n";

    # Add the text message part
    $msg->attach (
                  Type => 'text/html',
                  Data => qq{ $message_body }
                  ) or die "Error adding the text message part: $!\n";

    # Now send
    $msg->send("sendmail") or die "Error e-mailing: $!\n";
}