|
| Iniciado por Patrick Vandebroek, fev., 17 2004 1:13 PM - 2 respostas |
| |
| | | |
|
| |
Publicado em fevereiro, 17 2004 - 1:13 PM |
Hi,
when I want to send e-mails within windev I use the following code:
username is string
USER is string = "user"
Password is string = "pasw"
serverpop is string = "pop.tiscali.be"
serversmtp is string = "smtp.tiscali.be"
portP is int = 110
ports is int = 25
bOK is long int
if (EmailStartSession(USER,PASSWORD,SERVERpop,serversmtp,portP,portS))
UserName=USER
// Initialize mail components
// The sender (session user) is required to send the message
Email.Sender=""
// Recipients
Email.Recipient[1]=""
Email.NbRecipient=1
Email.Subject="TEST" // Message topic
Email.Message="Dit is een test van windev email" // Message text
Email.Nbattach=0 // Links
// Send the mail
If not EMailSendMessage(UserName)
Error(EmailMsgError(Email.Error))
End
Else
UserName=""
Error("Unable to connect")
End
emailclosesession(username)
This works fine, but you must know the email.sender, pop3 and smtp.
Does anyone know if you can get the email address of the sender, the pop3 and smtp by api call or any other way?
This program must run by clients and I don't wont to let them give in this information manually.
I know that this information must be stored in windows register, but how to get it?
Regards,
Patrick |
| |
| |
| | | |
|
| | |
| |
Publicado em fevereiro, 17 2004 - 10:15 PM |
Hi,
This works fine, but you must know the email.sender, pop3 and smtp.
Does anyone know if you can get the email address of the sender, the
pop3 and smtp by api call or any other way?
Hm, dont think that's possible. If you are sure only MS
products are used (OE ...) with pop/smtp then you can have a
look at 'HKEY_CURRENT_USER\Software\Microsoft\Internet Account
Manager' but normally it depends on emailclient etc etc.
Put this values in your own config file, normally client knows
and if not then no email  .
--
Peter
http://www.xs4all.nl/~petervu |
| |
| |
| | | |
|
| | |
| |
Publicado em fevereiro, 18 2004 - 9:21 AM |
Hi Peter,
Thnx for helping me out.
For the one who are interested in this, this is the result:
username is string
USER is string
Password is string
serverpop is string
serversmtp is string
portP is int = 110
ports is int = 25
bOK is long int
path is string
email is string
stop
path = "HKEY_CURRENT_USER\Software\Microsoft\Internet Account Manager\Accounts\00000001"
user = RegistryQueryValue(path,"POP3 User Name")
password = RegistryQueryValue(path,"POP3 Password2")
password = hextostring(password,length(password))
serverpop = RegistryQueryValue(path,"POP3 Server")
serversmtp = RegistryQueryValue(path,"SMTP Server")
portP = RegistryQueryValue(path,"POP3 Port")
portS = RegistryQueryValue(path,"SMTP Port")
email = RegistryQueryValue(path,"SMTP Email Address")
//Server is string = NetIPAddress("pop.tiscali.be")
if (EmailStartSession(USER,PASSWORD,SERVERpop,serversmtp,portP,portS))
UserName=USER
// Initialize mail components
// The sender (session user) is required to send the message
Email.Sender="<" + email + ">"
// Recipients
Email.Recipient[1]=""
Email.NbRecipient=1
Email.Subject="TEST" // Message topic
Email.Message="Dit is een test van windev email" // Message text
Email.Nbattach=0 // Links
// Send the mail
If not EMailSendMessage(UserName)
Error(EmailMsgError(Email.Error))
End
Else
UserName=""
Error("Unable to connect")
End
emailclosesession(username)
This code works fine if you let the user manually fill in the password.
I'm writing a procedure to get the password from the registry, but no luck so far .
If someone has a function to get the password from a binary value, it would help a lot.
Regards,
Patrick |
| |
| |
| | | |
|
| | | | |
| | |
|