alumi

1. Option Explicit
   
2. 
   
3. Sub SendAsPDF()
   
4. '   Uses early binding
   
5. '   Requires a reference to the Outlook Object Library
   
6.     Dim OutlookApp As Outlook.Application
   
7.     Dim MItem As Object
   
8.     Dim Recipient As String, Subj As String
   
9.     Dim Msg As String, Fname As String
   
10.             
    
11. '   Message details
    
12.     Recipient = "[email protected]"
    
13.     Subj = "Sales figures"
    
14.     Msg = "Hey boss, here's the PDF file you wanted."
    
15.     Msg = Msg & vbNewLine & vbNewLine & "-Frank"
    
16.     Fname = Application.DefaultFilePath & "\" & _
    
17.       ActiveWorkbook.Name & ".pdf"
    
18.    
    
19. '   Create the attachment
    
20.     ActiveSheet.ExportAsFixedFormat _
    
21.         Type:=xlTypePDF, _
    
22.         Filename:=Fname
    
23.    
    
24. '   Create Outlook object
    
25.     Set OutlookApp = New Outlook.Application
    
26.    
    
27. '   Create Mail Item and send it
    
28.     Set MItem = OutlookApp.CreateItem(olMailItem)
    
29.     With MItem
    
30.       .To = Recipient
    
31.       .Subject = Subj
    
32.       .Body = Msg
    
33.       .Attachments.Add Fname
    
34.       .Save 'to Drafts folder
    
35.       '.Send
    
36.     End With
    
37.     Set OutlookApp = Nothing
    
38. 
    
39. '   Delete the file
    
40.     Kill Fname
    
41. End Sub

½Æ»s¥N½X

alumi

µù¡G¤W­zµ{¦¡½X¡A»Ý­n¤Þ¥Î¡¨Microsoft Outlook 12.0 Object Library"