All,
I use the below code to format emails and ready them to send.
However, the emails created do not ever send.
They simply sit in the users outbox...
Shouldn't they send upon hitting send/receive? or upon outlook startup (provided the user has it set like that)?
I can delete the emails (if that makes a difference)
any ideas?
-Wiz
Dim objOutlook As Outlook.Application
Dim ns As Outlook.NameSpace
Dim Out_box As Outlook.MAPIFolder
Set objOutlook = CreateObject("Outlook.Application")
Set ns = GetNamespace("MAPI")
Set Out_box = ns.GetDefaultFolder(olFolderOutbox)
With objOutlookMsg
.To = email_Address
.subject = subj
.Body = bodyText
.Save
' Dropemails into outbox
'to avoid outlook security message
.Move Out_box
End With
Set objUtlookMsg = Nothing
Set objOutlook = Nothing
Set ns = Nothing
Set Out_box = Nothing
I use the below code to format emails and ready them to send.
However, the emails created do not ever send.
They simply sit in the users outbox...
Shouldn't they send upon hitting send/receive? or upon outlook startup (provided the user has it set like that)?
I can delete the emails (if that makes a difference)
any ideas?
-Wiz
Dim objOutlook As Outlook.Application
Dim ns As Outlook.NameSpace
Dim Out_box As Outlook.MAPIFolder
Set objOutlook = CreateObject("Outlook.Application")
Set ns = GetNamespace("MAPI")
Set Out_box = ns.GetDefaultFolder(olFolderOutbox)
With objOutlookMsg
.To = email_Address
.subject = subj
.Body = bodyText
.Save
' Dropemails into outbox
'to avoid outlook security message
.Move Out_box
End With
Set objUtlookMsg = Nothing
Set objOutlook = Nothing
Set ns = Nothing
Set Out_box = Nothing