Question

除了编程，我也是一名专业摄影师。我最近成功建立了一个非常成功的摄影机......如此成功，我有大约500张照片，以及60封电子邮件列表（一些图片有多个收件人）可以发送给他们。

电子邮件是我可以将图片发送给各自所有者的唯一方式，我没有时间在电子邮件应用中手动将每张照片发送给其所有者，我也不想在此过程中冒错误。所有电子邮件地址都在文本文件中，每个图像的文件位置都在预期收件人之后。除了图片，我还有一个通用的正文文本。

我已经查看了ASP，Macros，CDOSys以及一些稍微令人困惑的SMTP选项，但使用这些选项的答案非常受欢迎。

有关如何使用文本文件中的信息向每位收件人发送照片的任何想法？

tl;博士：我需要将500张单独的照片发送到60个电子邮件地址，而不是手动发送每张图片，或者给别人其他人的照片。所有信息都以文本文件形式组织。

更新：我有几个不同版本的文本文件。我有一个文本文件直接来自记事本编辑器，我有一个csv文件，我有一个版本，用＃和电子邮件地址分隔文件路径和标签。

Answer 1

使用经典的asp和Web电子邮件服务器，并假设您已经创建了一个csv文件。

步骤1.将textFile.csv上传到服务器用sayAddressAddress，pictureFileAddress等。

第2步。导入和电子邮件脚本（经典asp）

downloadFile = Server.MapPath("textFile.csv")

Set objFSO = CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(downloadFile) then

    firstLine = true    '... assume first line is header    
    Do Until objFile.AtEndOfLine OR finished
     StrTemp = objFile.ReadLine

     dataArray = Split(StrTemp, ",")   '... assume just two fields for this e.g.
     dataCount = UBound(dataArray)
        email = dataArray(0)
        picturefile = dataArray(1)
         '... perform any data validation or Regexp

        If email <> "" AND firstLine = false then 

         Set myMail=CreateObject("CDO.Message")
         myMail.From = "yourfromemail"
         myMail.ReplyTo = "yourreplyfromemail"
         myMail.Subject = "Your picture"

        '...create target file for attachment
         fn1 = picturefile 
         fn2 = Server.MapPath(fn1)
         myMail.AddAttachment fn2 

         myMail.HTMLBody = strMessage                   
         myMail.Send  
         Set myMail = Nothing              

       end if
       if firstLine then firstline = false
  loop
End if

我希望这会有所帮助

自动化电子邮件以创建特定于地址的附件

1 个答案: