trying to send mail from Access via outlook ; no errors , but no mail either

  • Thread starter Thread starter J Bard
  • Start date Start date
J

J Bard

trying to send mail from Access via outlook ; no errors , but no mail either


Private Sub Command0_Click()
Dim oa As Outlook.Application
Dim ns As Outlook.NameSpace
Dim mi As Outlook.MailItem

Set oa = New Outlook.Application
Set ns = oa.GetNamespace("mapi")
Set mi = oa.CreateItem(olMailItem)

mi.To = "(e-mail address removed)"
mi.Subject = "test"
mi.Body = "a test"
mi.Send

Set oa = Nothing
Set ns = Nothing
Set mi = Nothing
 
Just a guess, but, is the mail hanging around in the "to be sent" folder?
(or whatever that's called in Outlook)

HTH,
TC
 
YES

Thanks very much ....boy do I feel silly with this ...I often forget Outlook
Express ( which I use) aint the same thing as Outlook....
I'll poke around in some docs as to how to get it to actually "send ".....
 
Back
Top