Gitarist писал(а):
Сейчас ваша схема для аутлука выдает это ...Ты делаешь что-то не то. Окно outlook не открывается, письмо сразу отправляется.
Проверил несколько раз.
Add(MainForm,1495719,210,196)
{
link(onCreate,9473006:doExecute,[])
}
Add(VBJScript,13058327,357,210)
{
WorkPoints=#11:##SetScript|
Script=#
UseName=0
}
Add(FormatStr,14851356,308,210)
{
DataCount=3
Mask="Const PR_ATTACH_MIME_TAG = "http://schemas.microsoft.com/mapi/proptag/0x370E001E"\r\nConst PR_ATTACH_CONTENT_ID = "http://schemas.microsoft.com/mapi/proptag/0x3712001E"\r\n\r\nSet objOutlook = CreateObject("Outlook.Application")\r\nSet objMail = objOutlook.CreateItem(0)\r\n\r\nobjMail.Subject = "%2"\r\nobjMail.To = "%1"\r\n\r\nSet objAttachments = objMail.Attachments\r\nSet objAttachment = objAttachments.Add("%3")\r\n\r\nSet oPA = objAttachment.PropertyAccessor\r\noPA.SetProperty PR_ATTACH_MIME_TAG, "image/jpeg"\r\noPA.SetProperty PR_ATTACH_CONTENT_ID, "my-unique-id"\r\n\r\nobjMail.HTMLBody = "<html><body><img src='cid:my-unique-id'></body></html>"\r\n\r\n' objMail.Display \r\nobjMail.Send\r\n"
link(onFString,13058327:##SetScript,[])
link(Str1,11909134:Text,[])
link(Str2,5713602:Text,[])
}
Add(ODialog,9473006,259,210)
{
Filter="Изображения (*.jpg;*.png;*.gif)|*.jpg;*.jpeg;*.png;*.gif|Все файлы (*.*)|*.*""
link(onExecute,14851356:doString,[])
}
Add(VisualStrings,11909134,308,133)
{
@Hint=#4:Кому|
Lines=#16:mail@example.com|
Width=116
AddHint(245,-26,41,13,@Hint)
}
Add(VisualStrings,5713602,315,161)
{
@Hint=#16:Заголовок письма|
Lines=#25:Тест отправки изображения|
Width=186
AddHint(253,40,110,13,@Hint)
}
Gitarist писал(а):
Уточните, у вас родной пример работает, если туда все данные свои подставить, или аутлуковский?Нет не работает.
Gitarist писал(а):
Да и 25 и 465 пробовал.Если хочешь отправить через smtp.mail.ru, то попробуй эту схему. Только подставь свои данные.
У меня нет почты на Mail.ru поэтому не помогу с настройкой.
Add(MainForm,2953706,175,245)
{
Point(onClose)
link(onCreate,9473006:doExecute,[])
link(onClose,11043750:doConsoleTerminate,[])
}
Add(FormatStr,15489562,280,259)
{
DataCount=5
Mask="$smtpServer = 'smtp.mail.ru'\r\n$smtpPort = 465\r\n$username = '%1' \r\n$password = '%2' \r\n$to = '%3' \r\n$subject = '%4'\r\n$imgPath = '%5'\r\n\r\n$mail = New-Object System.Net.Mail.MailMessage\r\n$mail.From = $username\r\n$mail.To.Add($to)\r\n$mail.Subject = $subject\r\n\r\n$htmlBody = """<html><body><img src='cid:my-unique-id'></body></html>"""\r\n\r\n$alternateView = [System.Net.Mail.AlternateView]::CreateAlternateViewFromString($htmlBody, $null, 'text/html')\r\n\r\nif (Test-Path $imgPath) {\r\n $lr1 = New-Object System.Net.Mail.LinkedResource($imgPath, 'image/jpeg')\r\n $lr1.ContentId = 'my-unique-id'\r\n $alternateView.LinkedResources.Add($lr1)\r\n}\r\n\r\n$mail.AlternateViews.Add($alternateView)\r\n\r\n# Настройка SMTP-клиента\r\n$smtp = New-Object System.Net.Mail.SmtpClient($smtpServer, $smtpPort)\r\n$smtp.EnableSsl = $true\r\n$smtp.Credentials = New-Object System.Net.NetworkCredential($username, $password)\r\n\r\ntry {\r\n $smtp.Send($mail)\r\n Write-Host 'Письмо успешно отправлено!' \r\n}\r\ncatch {\r\n Write-Host """Ошибка отправки: $_"""\r\n}\r\nfinally {\r\n $mail.Dispose()\r\n $smtp.Dispose()\r\n}\r\n"
link(onFString,11043750:doConsoleExec,[])
link(Str1,15018997:Text,[])
link(Str2,10273523:Text,[])
link(Str3,11909134:Text,[])
link(Str4,5713602:Text,[])
}
Add(WinExec,11043750,350,245)
{
FileName="powershell"
Mode=0
Point(doConsoleExec)
Point(onConsoleResult)
Point(onConsoleError)
Point(doConsoleTerminate)
link(onConsoleResult,10145926:doWork2,[])
link(onConsoleError,10145926:doWork3,[(396,272)])
}
Add(Memo,5177466,462,259)
{
Left=75
Top=45
Width=280
Height=200
Align=5
Font=[Lucida Console,12,0,0,204]
Antialiased=1
ScrollBars=3
}
Add(Charset,5120510,413,259)
{
link(onCharset,5177466:doAdd,[])
}
Add(HubEx,10145926,392,259)
{
link(onEvent,5120510:doCharset,[])
}
Add(ODialog,9473006,224,259)
{
Filter="Изображения (*.jpg;*.png;*.gif)|*.jpg;*.jpeg;*.png;*.gif|Все файлы (*.*)|*.*""
link(onExecute,15489562:doString,[])
}
Add(VisualStrings,11909134,294,147)
{
@Hint=#4:Кому|
Lines=#20:receiver@example.com|
Width=130
AddHint(271,1,41,13,@Hint)
}
Add(VisualStrings,5713602,301,175)
{
@Hint=#16:Заголовок письма|
Lines=#25:Тест отправки изображения|
Width=186
AddHint(265,3,110,13,@Hint)
}
Add(VisualStrings,15018997,280,91)
{
@Hint=#20:Ваш email на Mail.ru|
Lines=#18:your_email@mail.ru|
Width=116
AddHint(287,-2,112,13,@Hint)
}
Add(VisualStrings,10273523,287,119)
{
@Hint=#31:Пароль приложения (16 символов)|
Lines=#16:abcdefghijklmnop|
Width=95
AddHint(278,1,192,13,@Hint)
}
Поиск
Друзья
Администрация