E-mail Access 1

[klewis10367]

Has anyone found a way to keep the Microsoft Outlook e-mail access window from popping up when trying to send an e-mail through Integration Manager. Microsoft says that Windows Xp Sp1 sets the security and they do not know how to bpass it.

 

[Luvsql]

Don't use Outlook. Use SMTP (document I found from Microsoft and it works like a dream). This script is what I have on the Document Error:

Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = "Integration Error"
objMessage.Sender = "email address"
objMessage.To = "email address"
objMessage.TextBody = "Error in integration: Name of Integration" & VbCrLf & VbCrLf
objMessage.TextBody =objMessage.TextBody & "Batch ID: " & SourceFields("Batch")
objMessage.TextBody =objMessage.TextBody & VbCrLf &"Document Number: " & SourceFields("DocNo")
objMessage.TextBody =objMessage.TextBody & VbCrLf & "Customer ID: " & SourceFields("CustomerID")
objMessage.TextBody =objMessage.TextBody & VbCrLf & "Date of Integration: " & Date()
objMessage.TextBody =objMessage.TextBody & VbCrLf & "Time Error Occurred: " & Time()

'==This section provides the configuration information for the remote SMTP server.
'==Normally you will only change the server name or IP.
objMessage.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2

'Name or IP of Remote SMTP Server
objMessage.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= "input your smtp server here"

'Server port (typically 25)
objMessage.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25

objMessage.Configuration.Fields.Update

'==End remote SMTP server configuration section==

objMessage.Send

 

[TallOne]

Nice tip have a star!

 

[klewis10367]

Forgive me for being stupid here, but could you copy an exact script that you have written. I am not very profocient in scripting so i have a hard time interpreting. Thanks

 

[Luvsql]

If you paste the script I have, just edit the following:

- "email address" with your email address
- "input your smtp server here" put your smtp server from your isp (eg. smtp.microsoft.com)


That's all you need to change and it should work.

 

[klewis10367]

Thanks, do you know how too add an attachment?

 

[Luvsql]

I've never included an attachment, but I know you'll need to modify the integration to use Level=Document and Storage Type=File (under logs tab), then there is a vb script that will attach that. I believe you can only add the attachment to the "After Integration" The script I included was to email a person after each error.

 

[klewis10367]

This is the script that I need to e-mail along with an attachment, but this only accounts for a static prenamed file as an attachment...does anyone know how to convert it to look at the daily integration log file that changes its name after every integration. The script that comes with Intergration Manager does this but that code does not work with this code.


SMTPServer = "mbhqex07"

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "kevin.lewis@burroughs-chapin.com"
objEmail.To = "kevin.lewis@burroughs-chapin.com"
objEmail.Subject = "TSW Next Integration Failed for" & " " & Date-1
objEmail.Textbody = "Please click the attached link to view the TSW Next Integration Error File"
objEmail.AddAttachment "C:\Scripts\Output.txt"


objEmail.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/sendusing")

= 2
objEmail.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/smtpserver")

= SMTPServer
objEmail.Configuration.Fields.Item _
("

http://schemas.microsoft.com/cdo/configuration/smtpserverport")

= 25
objEmail.Configuration.Fields.Update

objEmail.Send

 

[TallOne]

You could use the FileSystemObject and vbScript to iterate over the files and find the newest one of your type. If you figure it out post your code. I'll be doing the same thing in a week or so or sooner if I have the time.

Later
TallOne

 

[klewis10367]

I have no idea how to translate that code to the code I am using.