UtterAccess.com
X   Site Message
(Message will auto close in 2 seconds)

Welcome to UtterAccess! Please ( Login   or   Register )

Custom Search
 
   Reply to this topicStart new topic
> how to send hidden email message    
 
   
johnwesley53m
post Jul 6 2008, 09:21 AM
Post#1



Posts: 4
Joined: 15-April 08



Hi Group,
I am distributing a access 2003 application (.mde) to my many writers I have working for me. This software allows them to run their web site and is quite extensive in time saving features. I have them tied up via contracts, but I need to know if they are using the software after any contract violations which is not allowed. I would like the software to be able to send me a simple email message to my email via smtp so I have proof of the date and time they used the software. using VBA code will be fine.
thanks,
John
Go to the top of the page
 
freakazeud
post Jul 6 2008, 10:08 AM
Post#2


UtterAccess VIP
Posts: 31,413
Joined: 23-September 04
From: NC, USA


Hi,
I'm not sure if you will be able to do that. Most likely any email creation method will rely on the host's machine which will require either interaction or will leave trace. Why don't you just disable the application after the period you have set so they can't use it anymore? This would be a more logical step then trying to figure out if they are still using it.
HTH
Good luck
Go to the top of the page
 
spy
post Jul 6 2008, 10:15 AM
Post#3



Posts: 457
Joined: 5-January 05
From: Porto Alegre - Brazil


Not sure if this will work from an outside machine, but CDO works here even without mail account configured in any email program:
CODE
Sub CDOmail()
' requires reference to Microsoft CDO for Windows 2000 Library
im iMsg As CDO.Message
Dim iCfg As CDO.Configuration
Set iCfg = New CDO.Configuration
Set iMsg = New CDO.Message
With iCfg.Fields
    .Item(cdoSendUsingMethod) = cdoSendUsingPort
    .Item(cdoSMTPServerPort) = 25
    .Item(cdoSMTPServer) = "smtp.YourISP.com" ' smtp.yahoo.com or something like
    .Item(cdoSMTPAuthenticate) = cdoBasic
    .Item(cdoSendUserName) = "ISPaccount"
    .Item(cdoSendPassword) = "password"
    .Item(cdoSendEmailAddress) = "ISPaccount@YourISP.com"
    .Update
End With
With iMsg
    .Configuration = iCfg
    .Subject = "CDO message"
    .To = "someone@somewhere.com"
    .TextBody = "Hello!"
    .Send
End With
Set iCfg = Nothing
Set iMsg = Nothing
End Sub

HT
Go to the top of the page
 
HiTechCoach
post Jul 6 2008, 02:07 PM
Post#4


UtterAccess VIP
Posts: 18,993
Joined: 29-September 03
From: Oklahoma City, Oklahoma


Did you ever get the expiration code to work from your previous post: how to have my code expire on a specific date in the future


Osend email with SMTP. This may help:
SMTP to send email question Version
Edited by: HiTechCoach on Sun Jul 6 15:15:00 EDT 2008.
Go to the top of the page
 


Custom Search
RSSSearch   Top   Lo-Fi    14th December 2017 - 12:01 PM