用vba 發yahoo GMAIL 的電子郵件不用透過outlook

alims

用vba 發yahoo GMAIL 的電子郵件不用透過outlook

Sub outfile()
Set myOL = CreateObject("outlook.application")
Set myMail = myOL.createItem(0)
myMail.to = "aaa@gmail.com"
myMail.Subject = "see you sooon"
myMail.body = "execl send to Mail...."
myMail.Display
myMail.send
End Sub
有類似以上的格式  最能夾帶附件
能自動化發email

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 = "myboss@xrediyh.com"
    
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

複製代碼

alumi

註：上述程式碼，需要引用”Microsoft Outlook 12.0 Object Library"

Hsieh

回復 1# alims

使用gmail的帳號來發郵件- 傳送多個附件

alims

十分感謝  大大 無私的救援