data base unlimited
| Services | Products | Code |
Auto Tracking
Auto Tracking
This script can be run on Exchange Server to generate automatic responses with auto-tracking numbers, while logging the emails received in a SQL Server database.
' DESCRIPTION: This event is fired when a new message is added to the folder
Public Sub Folder_OnMessageCreated
mailpeople
End Sub
private sub mailpeople()
dim vbcrlf
vbcrlf=chr(13) & chr(10)
dim infotext ' as string
dim msg ' as message
dim newmsg ' as message
dim respmsg ' as message
dim responsetext ' as string
dim client ' as string
dim Responder ' as object
dim respnum ' as long
respnum = 0
set msg = eventdetails.session.getmessage(eventdetails.messageid,null)
if instr(lcase(msg.sender.address),[your domainname - avoids DoS attacks]) = 0 then
See the code for
the Responder DLL under SQL auto-numbering 
set Responder =
createobject("ResponseNumbering.ResponseNumber")
if Responder is nothing then
script.response = "Problem creating Responder DLL."
else
Responder.RequestingPF =
"Techsupport"
Responder.Senderemail =
msg.sender.address
Responder.SenderName = msg.sender
Responder.Subject = msg.subject
respnum = Responder.TrackingNumber
end if
set Responder =
nothing
responsetext = "Thank you for your communication re: " & _
msg.subject & vbcrlf
if
respnum <> 0 then
responsetext = responsetext & _
"You have been assigned Tracking Number "
& _
cstr(respnum) & "." & vbcrlf & vbcrlf
end if
responsetext = responsetext & _
"We will review it as soon as possible and " & _
"respond to you in more detail." &
vbcrlf & vbcrlf & _
"Technical Support " & vbcrlf & [your company]
set newmsg = createobject("CDONTS.NewMail")
newmsg.from="Tech Support folder<[email address of your folder]>"
newmsg.to=[email address of whoever must monitor this folder]
newmsg.Subject = "Tech Support: " &cstr(respnum) & ": " & msg.sender
infotext = "New Tech Support request, number " & cstr(respnum) & _
" from " & msg.sender.name
newmsg.body =
infotext
client =
msg.sender& "<" & msg.sender.address & ">"
newmsg.send
script.response= script.response & "Notified
[whoever]."
set respmsg =
createobject("CDONTS.NewMail")
respmsg.from ="Technical Support [your
company]<[email address of folder]>"
respmsg.Subject="Your incident: " & msg.Subject
respmsg.to = client
respmsg.body = responsetext
respmsg.send
msg.subject = msg.subject & ": [" & cstr(respnum) & "]"
msg.update
This ensures that the message you see in your Public Folder is stamped with the new Tracking Number.
Script.Response=
Script.Response & "Responded to " & client
end if
end sub