Koldo González
New Member
Hello.
I´m trying to send emails with ms outlook in a W200NT. The code i have works rigth when i execute it as a local user, but when i try to execute it via web (as iusr_mypc, the iis default user), progress doen´t open outlook. In a WXP with Apache as server works rigth.
I use the following code (taken from internet):
Anybody have any ideas? Thanks.
I´m trying to send emails with ms outlook in a W200NT. The code i have works rigth when i execute it as a local user, but when i try to execute it via web (as iusr_mypc, the iis default user), progress doen´t open outlook. In a WXP with Apache as server works rigth.
I use the following code (taken from internet):
Code:
DEFINE INPUT PARAMETER OriginName AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER RecipName AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER Subject AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER Bodytext AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER FilePathName AS CHARACTER NO-UNDO.
DEFINE INPUT PARAMETER iw_envaut AS INTEGER NO-UNDO.
DEFINE VAR objEntry AS COM-HANDLE NO-UNDO.
DEFINE VAR objSession AS COM-HANDLE NO-UNDO.
DEFINE VAR objMessage AS COM-HANDLE NO-UNDO.
DEFINE VAR objRecip AS COM-HANDLE NO-UNDO.
DEFINE VAR objAttach AS COM-HANDLE NO-UNDO.
DEFINE VAR one AS LOGICAL INIT YES NO-UNDO.
DEFINE VAR lw_sesion AS LOGICAL.
CREATE "MAPI.SESSION" objSession.
objSession:Logon("MS Exchange Settings").
objMessage = objSession:OutBox:Messages:Add().
objMessage:Subject = Subject.
objMessage:Text = Bodytext.
objRecip = objMessage:Recipients:Add().
objRecip:Name = RecipName.
objRecip:Type = 1.
objRecip:Resolve.
ObjAttach = objMessage:Attachments:Add().
ObjAttach:Name = "Fac".
ObjAttach:Source = FilePathName.
objMessage:Update(TRUE, TRUE).
objMessage:Send(TRUE, FALSE).
objSession:Logoff.
RELEASE OBJECT objRecip.
RELEASE OBJECT objMessage.
RELEASE OBJECT objSession.
QUIT.
Anybody have any ideas? Thanks.