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    
post Jul 6 2008, 09:21 AM

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.
Go to the top of the page
post Jul 6 2008, 10:08 AM

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

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.
Good luck
Go to the top of the page
post Jul 6 2008, 10:15 AM

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:
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"
End With
With iMsg
    .Configuration = iCfg
    .Subject = "CDO message"
    .To = "someone@somewhere.com"
    .TextBody = "Hello!"
End With
Set iCfg = Nothing
Set iMsg = Nothing
End Sub

Go to the top of the page
post Jul 6 2008, 02:07 PM

UtterAccess VIP
Posts: 19,037
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    7th August 2020 - 07:25 PM