• Откуда: Иркутск
  • На форуме с 19 ноября 2010г.
  • Сообщений: 52
  • Спасибо: 1

Тема: Отправка сообщения на внешнюю почту

Здравствуйте!
Не совсем ясна процедура отправки сообщений на внешнюю почту. При выполнении скрипта созданное сообщение открывается в окне оутлука и просит его отправить. Проблема в том, что (1)мы пользуемся другой почтовой программой и (2) письмо системное и должно уходить автоматически на заданный адрес.
Спасибо!

  • На форуме с 30 октября 2008г.
  • Сообщений: 91
  • Спасибо: 0

Re: Отправка сообщения на внешнюю почту

скрипт свой?

  • Откуда: Иркутск
  • На форуме с 19 ноября 2010г.
  • Сообщений: 52
  • Спасибо: 1

Re: Отправка сообщения на внешнюю почту

vorona пишет:

скрипт свой?

Я брал скрипт из примера.

  • Откуда: Иркутск
  • На форуме с 19 ноября 2010г.
  • Сообщений: 52
  • Спасибо: 1

Re: Отправка сообщения на внешнюю почту

Option Explicit
Call SendExtEMail()


'============================================================================
==
' Отправить почтовое сообщение по внешней почте
'============================================================================
==
Sub SendExtEMail()
        Dim ToWhom, strSubj, strBody, CC

        Set ToWhom = ThisApplication.Users("SYSADMIN")
        Set CC = ThisApplication.CurrentUser
        strBody = "Hello at " & Now()
        strSubj = "Short message is just for test"

        ThisApplication.Utility.SendEMail ToWhom.Mail, strSubj, strBody, CC.Mail
End Sub
'============================================================================
==

  • Откуда: Иркутск
  • На форуме с 19 ноября 2010г.
  • Сообщений: 52
  • Спасибо: 1

Re: Отправка сообщения на внешнюю почту

Vorona: никогда не пользовался данной утилитой. у себя реализовывал отправку письма на внешнюю почту другим способом. пример взят из мсдн

' Рассылка сообщений

Sub delivery (mailList, subj, body)
' Входные данные - кому, тема, тело, параметр: электронной почтой или почтой TDMS
' по электронной почте
Dim i, objEmail
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2 'Must use this to use Delivery Notification
Const cdoAnonymous = 0
Const cdoNTLM = 2 'NTLM
' Delivery Status Notifications
Const cdoDSNDefault = 0 'None
Const cdoDSNNever = 1 'None
Const cdoDSNFailure = 2 'Failure
Const cdoDSNSuccess = 4 'Success
Const cdoDSNDelay = 8 'Delay
Const cdoDSNSuccessFailOrDelay = 14 'Success, failure or delay

Set objEmail = CreateObject("CDO.Message")

objEmail.From = "Test"
objEmail.To = mailList
objEmail.Subject = subj
objEmail.Textbody = body
With objEmail.Configuration.Fields
.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "email@gmail.ru"
.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = pass
.Update
End With
Err = 0
On Error Resume Next
objEmail.Send
If Err <> 0 Then Msgbox "Письмо не отправлено!" & " Код ошибки " & Err, vbExclamation
Set objEmail = Nothing
Set objConf = Nothing
End Sub

в тдмс конечно есть возможность отправки почты, можно настроить через "параметры" --> "внешняя почта" --> "настройки". И отправлять письма через стандартную форму письма тдмс, но там есть тоже свои нюансы.