通过perl脚本发送的电子邮件上的附件文件出错

我正在使用perl发送一封带有附件的电子邮件

我的问题是，我正在发送一个

csv

文件，其中包含一些

格式设置

，发送部分进行得非常顺利，没有任何错误，但当我收到电子邮件时，附件中没有带有趣字符的格式设置

筛选我发送的文件-
筛选我收到的文件-

有人知道为什么会这样吗

#!/usr/bin/perl

use MIME::Lite;
use Net::SMTP;

### Adjust sender, recipient and your SMTP mailhost
my $from_address = 'martin dot zahn at akadia dot ch';
my $to_address = 'martin dot zahn at akadia dot ch';
my $mail_host = 'mailhost.domain.com';

### Adjust subject and body message
my $subject = 'A message with 2 parts ...';
my $message_body = "Here's the attachment file(s) you wanted";

### Adjust the filenames
my $my_file_csv = 'my_file.csv';
my $your_file_csv = 'your_file.csv';

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

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

### Add the CSV file
$msg->attach (
   Type => 'text/csv',
   Path => $my_file_csv,
   Filename => $your_file_csv,
   Disposition => 'attachment'
) or die "Error adding $file_csv: $!\n";

### Send the Message
MIME::Lite->send('smtp', $mail_host, Timeout=>60);
    $msg->send;

---

如何连接CSV？CSV文件如何具有格式？请详细说明，并显示该代码。（哦，用有趣的字符描述一个错误？显示结果！）在发送CSV文件之前，您能否显示一个正确的CSV文件示例。和损坏的CSV文件，你收到的，所以我们可以看到，发生了什么。我编辑了上面的代码。我使用了一个宏来更新刷新csv的正确格式。我将尝试找到一种发送文件的方法示例，在发送之前/之后很简单：您的输入不是CSV文件。它是一些二进制数据，例如图像或xsl/xslx电子表格。要知道它到底是什么是不可能的。如何查看？如果要附加excel文件，请将附件类型设置为

application/vnd.ms excel