Board logo

標題: 用vba 發yahoo GMAIL 的電子郵件不用透過outlook [打印本頁]
作者: alims    時間: 2012-6-2 12:37     標題: 用vba 發yahoo GMAIL 的電子郵件不用透過outlook

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

Sub outfile()
Set myOL = CreateObject("outlook.application")
Set myMail = myOL.createItem(0)
myMail.to = "[email protected]"
myMail.Subject = "see you sooon"
myMail.body = "execl send to Mail...."
myMail.Display
myMail.send
End Sub
有類似以上的格式  最能夾帶附件
能自動化發email
作者: alumi    時間: 2012-6-2 18:24


  1. Option Explicit

  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

  39. '   Delete the file
  40.     Kill Fname
  41. End Sub
複製代碼

作者: alumi    時間: 2012-6-2 18:28


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

作者: Hsieh    時間: 2012-6-2 23:46

回復 1# alims

使用gmail的帳號來發郵件- 傳送多個附件
作者: alims    時間: 2012-6-5 12:32

十分感謝  大大 無私的救援



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)