MSMAPI ile Mail Gönderme



Sub MSMAPI_Sample()
  Dim mapiSession
  Dim mapiMessages
 
  Set mapiSession = CreateObject("MSMAPI.MAPISession")
  Set mapiMessages = CreateObject("MSMAPI.MAPIMessages")
 
  mapiSession.LogonUI = True
  mapiSession.SignOn
  mapiMessages.SessionID = mapiSession.SessionID
  mapiMessages.Compose
  mapiMessages.MsgSubject = "MSMapi Sample Subject"
  mapiMessages.MsgNoteText = "MSMapi Sample Body"
  mapiMessages.RecipDisplayName = "Support"
  mapiMessages.RecipAddress = "receipent@domain.cm"
  mapiMessages.Send False
  mapiSession.SignOff
End Sub