VBA通过电子邮件发送多列

时间:2014-01-20 21:49:00

标签: vba email spreadsheet

我正在尝试从电子表格中获取数据以显示在电子邮件中。如果它连成一排,这很容易。我想要的是数据:

DspG   DspN   Comp   PriSMTP   Owner   OwnerE
A       M_N     C_N    u@c.com    O_N     o@c.com
A       R_N     D_N    v@l.com    O_N     o@c.com
A       N_N     E_N    w@e.com    O_N     o@c.com
B       F_N     T_N    q@d.com    Dif_N   i@dd.com
B       G_N     K_N    a@p.com    Dif_N   i@dd.com
C       V_N     B_N    j@d.com    Oth_N   b@333.com

仅显示DspG,Owner和OwnerE一次,但从DspN,comp,PriSMTP获取3行数据。重复此操作,其中DspG等于B,然后是C.一直向下到A列。

提前感谢您提供任何帮助/建议。

如果您感兴趣,我正在使用的电子邮件例程是http://www.globaliconnect.com/excel/index.php?option=com_content&view=article&id=170:automate-outlook-using-vba-sending-email-from-excel-using-outlook&Itemid=473

1 个答案:

答案 0 :(得分:0)

在您链接的示例中,我相信您应该可以使用:

With miOL
    .Subject = "Financial Analysis - 2012"
    .Body = Range("A1:F7").Value 'Use the value of the range instead of explicitly stating a string

如果将其作为一行输入或具有奇怪的格式,您应该能够使用For循环并一次输入每一行,然后换行和回车。