@karambol

Приветствую всех. Привожу простую ф-ю по которой отправляется сообщение на мыло. Как сделать так, чтобы она работала тогда, когда программы подгружает локальный пользователь? (компьютер в сети).
[code]
'функция отправки мыла с всеми указанными параметрами
'с помощу CDO
Function SendSimpleMail(ByVal stFrom As String, ByVal stTo As String, ByVal stSubject As String, ByVal stCharset As String, ByVal strBodyText As String, ByVal TipeMsg As String, ByVal FileAtach As String, _
ByVal sendusing As String, ByVal smtpserver As String, ByVal smtpserverport As Long, ByVal sendusername As String, _
ByVal sendpassword As String, ByVal smtpauthenticate As String, ByVal smtpusessl As String, ByVal smtpconnectiontimeout As String) As Boolean
On Error GoTo Err_SendSimpleMail
Dim cdoConfig As New CDO.Configuration
Dim cdoMessage As New CDO.Message

sch = "http://schemas.microsoft.com/cdo/configuration/ http://schemas.microsoft.com/cdo/configuration/"
With cdoConfig.Fields
.Item(sch & "sendusing") = sendusing
.Item(sch & "smtpserver") = smtpserver
.Item(sch & "smtpserverport") = smtpserverport
.Item(sch & "sendusername") = sendusername
.Item(sch & "sendpassword") = sendpassword
.Item(sch & "smtpauthenticate") = smtpauthenticate
.Item(sch & "smtpusessl") = smtpusessl
.Item(sch & "smtpconnectiontimeout") = smtpconnectiontimeout
.Update
End With

With cdoMessage
Set .Configuration = cdoConfig
.From = stFrom
.Subject = stSubject
If TipeMsg = "TextBody" Then
.TextBody = strBodyText
Else
.HTMLBody = strBodyText
End If
.TextBodyPart.Charset = stCharset
If Len(FileAtach) > 0 Then .AddAttachment FileAtach
.DSNOptions = cdoDSNSuccessFailOrDelay
.To = stTo
.Fields.Update
&

0