添加邮件附件语句。。。。。

canciaw

各位大侠,请教如何写添加附件的语句呢? 我写了附页excel文件的代码自动发送邮件，但是还需要在邮件里面加上一个附件，不会写怎么加附件的语句，
谢谢各位帮忙。。。。

a371014988

1.    Public Function SendMail(ByVal strOrder As String, ByVal StrEmail As String) As Boolean
   
2.         If Len(StrEmail) = 0 Then
   
3.             MsgBox("E-mail address not found", MsgBoxStyle.Information)
   
4.             Return False
   
5.         End If
   
6.         Dim MailClient As New System.Net.Mail.SmtpClient
   
7.         MailClient.Host = "smtp.163.com"
   
8.         MailClient.UseDefaultCredentials = False
   
9.         MailClient.Credentials = New System.Net.NetworkCredential("*******", "*******")
   
10.         MailClient.DeliveryMethod = Net.Mail.SmtpDeliveryMethod.Network
    
11.         Dim Message As System.Net.Mail.MailMessage = New System.Net.Mail.MailMessage("l********@163.com", StrEmail)
    
12.         Message.Subject = "订单邮件确认"
    
13.         Message.Body = Replace(strBody(), "@Order", strOrder)
    
14.         Message.BodyEncoding = System.Text.Encoding.GetEncoding("gb2312")
    
15.         Message.IsBodyHtml = True
    
16.         Message.Attachments.Add(New Net.Mail.Attachment(Application.StartupPath & "\youjian.doc"))  ''''''''''''添加附件
    
17.         Try
    
18.             Application.DoEvents()
    
19.             MailClient.Send(Message)
    
20.             MsgBox("发送成功")
    
21.             Return True
    
22.         Catch ex As Exception
    
23.             MsgBox("发送失败" & " " & ex.ToString)
    
24.             Return False
    
25.         End Try
    
26.     End Function
    
27. 
    
28.     Private Function strBody() As String
    
29.         Dim StrPath As String, strIni As String
    
30.         StrPath = Application.StartupPath & "\mailbody.ini"
    
31.         Dim fileStream As FileStream = New FileStream(StrPath, FileMode.Open)
    
32.         Dim fileread As StreamReader = New StreamReader(fileStream, System.Text.Encoding.GetEncoding("gb2312"))
    
33.         strIni = fileread.ReadToEnd()
    
34.         fileread.Close()
    
35.         fileStream.Close()
    
36.         Return strIni
    
37.     End Function

复制代码

[ 本帖最后由 a371014988 于 2010-9-30 13:25 编辑 ]

a371014988

MailItem.Attachments.Add "E:\订单管理整理9月8日\SSUI\SSUI\新建 Microsoft Office Excel 97-2003 工作表.xls"
你里面不是写了吗，放在mailltem.send前面

a371014988

测试好，在我这里发送成功了

canciaw

你好，谢谢帮忙，我试着按照你的方法，将语句放在mailitem.send 前面，但是出现错误。错误信息为
运行时错误“1004”
应用程序定义或对象程序定义错误

谢谢！！

以下是代码：

Sub SentEmail()
Dim OutlookApp As Object
Dim MailItem As Object
Dim Recipient As Object
Dim i As Integer
Dim StrMail As String
For i = 2 To Sheets("sheet1").[A65536].End(xlUp).Row
    Set OutlookApp = CreateObject("Outlook.Application")
    Set MailItem = OutlookApp.CreateItem(0)
    MailItem.To = Sheets("sheet1").Range("f" & i).Value
    MailItem.Subject = "华晨宝马汽车有限公司运输服务满意调查"
    StrMail = "<H2>尊敬的华晨宝马经销商——" & Sheets("sheet1").Range("e" & i).Value & "," & _
    "   <BR>" & _
    "<B><BR>您好，我们是华晨宝马汽车有限公司的运输承运商，提供从宝马佛山库房出货的运输服务。为了更好地提供运输服务，了解客户的需求，特进行此运输服务满意调查。烦请拨冗填写附件调查表的调查项目。我们将会依据您的意见力求改善，并提供更满意的服务。<BR><B>" & _
    "   <BR>" & _
    "<B>如果在填写运输服务满意表时遇到任何问题，请随时致电我司客服人员Gary Zhou。联系电话：+ 86 20 2831 2938。<B>" & _
    "   <BR>" & _
    "<B>烦请您收到此表后尽快填写并希望在5天内接收到您的回传。<B>" & _
    "   <BR>" & _
    "<B>谢谢！<B>" & _
    "   <BR>" & _
    "   <BR>" & _
    "<B>德迅（中国）货运代理有限公司广州分公司<B>" & _
    "   <BR>" & _
    "<B>With best regards<B>" & _
    "<B><BR>Gary Zhou<B>" & _
    "<B><BR>Customer Service Coordinator<BR><B>" & _
    "<B><BR>Kuehne & Nagel Limited<BR><B>" & _
    "<B>19/F Eastern Tower, T.H.E Plaza<B>" & _
    "<B>625 Tianhe Road, Tianhe<B>" & _
    "<B>Guangzhou 510630<B>" & _
    "<B>China<B>" & _
    "   <BR>" & _
    "<B><BR>Phone: +86 020 28312938<B>" & _
    "<B><BR>Fax: +86 020-38931320<B>" & _
    "<B><BR>Gary.Zhou@kuehne-nagel.com<B>"
         
    MailItem.HTMLBody = StrMail
    MailItem.Attachments.Add "d:\abc.xls"
    MailItem.Send
    Set OutlookApp = Nothing
    Set MailItem = Nothing
    Set Recipient = Nothing
    Next i
   MsgBox "邮件已经成功发送"
End Sub

a371014988

你的outlook设置好了没，你用的是outlook来发送文件的，要配置过后才行

canciaw

应该设置好了，因为如果不加那个附件语句，是可以运行的。。。

canciaw

你好，我用2003就可以了，2007反而不行。。。谢谢！！！