Image 自动发送电子邮件以制作特定于地址的附件

除了编程，我还是一名专业摄影师。我最近建立了一个非常成功的摄影棚。。。非常成功，我有大约500张照片和60封电子邮件（有些照片有多个收件人）要发送给他们

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

我已经研究了ASP、宏、CDOSys以及一些与SMTP有点混淆的选项，但是使用这些选项的答案非常受欢迎

关于如何使用文本文件中的信息向每个收件人发送照片的电子邮件，您有什么想法吗

tl；dr：我需要将500张个人照片发送到60个电子邮件地址，而不需要手动发送每张照片，也不需要给别人照片。所有信息都组织在一个文本文件中

---

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

使用经典asp和web电子邮件服务器，并假设您可以创建csv文件

第一步。将textFile.csv上载到服务器 比如说电子邮件地址，图片，衣服等等

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

downloadFile=Server.MapPath（“textFile.csv”）
设置objFSO=CreateObject（“Scripting.FileSystemObject”）
如果存在objFSO.files（下载文件），则
firstLine=true'。。。假设第一行是标题
直到objFile.AtEndOfLine或完成为止
StrTemp=objFile.ReadLine
dataArray=Split（StrTemp，“，”）。。。假设此字段只有两个字段，例如。
dataCount=UBound（dataArray）
电子邮件=数据阵列（0）
picturefile=dataArray（1）
'... 执行任何数据验证或Regexp
如果电子邮件“”和firstLine=false，则
设置myMail=CreateObject（“CDO.Message”）
myMail.From=“yourfromemail”
myMail.ReplyTo=“YourReplyFrommail”
myMail.Subject=“你的照片”
“…为附件创建目标文件
fn1=图片文件
fn2=Server.MapPath（fn1）
myMail.add附件fn2
myMail.HTMLBody=strMessage
我的邮件，发送
设置myMail=Nothing
如果结束
如果firstLine，则firstLine=false
环
如果结束

---

我希望这有帮助

您的文本文件是什么格式的-是csv吗？

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