outlook.application

tanzhaozhen

Public Sub SendToSubjBody(strTo As String, _
                   bolHTML As Boolean, _
                   strSubj As String, _
                   strBody As String, _
                   AttachmentFileName As String, _
                   Optional AutoSend As Boolean = True)

    Dim ola1   As Outlook.Application
    Dim mai1   As Outlook.MailItem
    Dim atts   As Outlook.Attachments
    Dim newAttachment As Outlook.Attachment
   Set ola1 = New Outlook.Application
    Set mai1 = ola1.CreateItem(olMailItem)
    mai1.To = strTo    '地址
    mai1.Subject = strSubj    '主题
    If bolHTML = True Then
        mai1.HTMLBody = strBody    '内容
    Else
        mai1.Body = strBody
    End If
    If Len(AttachmentFileName) > 0 Then
        Set atts = mai1.Attachments
        Set newAttachment = atts.Add(AttachmentFileName, olByValue)    '附件
    End If
    If AutoSend = True Then
        On Error GoTo continue
黄色报错：‘48’，引用DLL错误
已经引用了OUTLOOK OBJECT

tyxvba7529

如下代码不需要引用

1. Sub test()
   
2. SendToSubjBody "125788855@126.com", True, "tevst", "body", "D:\test.xls", True
   
3. End Sub
   
4. 
   
5. Public Sub SendToSubjBody(strTo As String, _
   
6.                     bolHTML As Boolean, _
   
7.                     strSubj As String, _
   
8.                     strbody As String, _
   
9.                     AttachmentFileName As String, _
   
10.                     Optional AutoSend As Boolean = True)
    
11.                     
    
12. Dim ola1    As Object
    
13. Dim mai1   As Object
    
14. 
    
15. Set ola1 = CreateObject("Outlook.Application")
    
16. Set mai1 = ola1.CreateItem(olMailItem)
    
17. 
    
18. With mai1
    
19.      .to = strTo    '地址
    
20.      .Subject = strSubj    '主题
    
21.      
    
22.      If bolHTML = True Then
    
23.          .HTMLBody = strbody    '内容
    
24.     Else
    
25.          .Body = strbody
    
26.      End If
    
27.          
    
28.     If Len(AttachmentFileName) > 0 Then
    
29.         .attachments.Add AttachmentFileName
    
30.     End If
    
31.         
    
32.     If AutoSend = True Then
    
33.         .Send
    
34.     Else
    
35.         .display
    
36.     End If
    
37. End With
    
38. End Sub
    
39. 
    

复制代码

cjq253

留个记号，学习下^_^