companheiros boa noite, estou usando este código do JPaulo"
' JPaulo ® 2008
Public Function InitializeOutlook() As Boolean
On Error GoTo Init_err
Set gOLApp = CreateObject("Outlook.application")
Set gOLNameSpace = gOLApp.GetNamespace("MAPI")
init_Bye:
InitializeOutlook = True
Exit Function
Init_err:
InitializeOutlook = False
End Function
Bem através de um click no botão, de um relatório eu abro o Outlook e o formulário de envio de e-mail.
o Outlook abre normal, mas quando clico em Enviar ai ele fecha e não envia o e-mail.
Alguém dos senhores podem me dar uma luz?
' JPaulo ® 2008
Public Function InitializeOutlook() As Boolean
On Error GoTo Init_err
Set gOLApp = CreateObject("Outlook.application")
Set gOLNameSpace = gOLApp.GetNamespace("MAPI")
init_Bye:
InitializeOutlook = True
Exit Function
Init_err:
InitializeOutlook = False
End Function
Bem através de um click no botão, de um relatório eu abro o Outlook e o formulário de envio de e-mail.
o Outlook abre normal, mas quando clico em Enviar ai ele fecha e não envia o e-mail.
Alguém dos senhores podem me dar uma luz?