2014-01-17 5 views
2

У меня есть мой внешний вид, настроенный на мой идентификатор офиса, и я чрезвычайно новичок в пакетном сценарии. Каков самый простой способ (простейший код) для отправки электронной почты через командный файл моему коллеге.Отправка электронной почты с использованием пакетного файла

благодаря

+0

Если вы можете использовать внешние инструменты, проверьте blat -> http://www.blat.net/examples/batch.html – npocmaka

ответ

1

Я вижу 3 варианта для вас:

  1. Суть нет встроенного способа в пакетном режиме, но есть сторонние инструменты, такие как блат и т.п., которые могут вызываться из командного файла.

  2. Вы можете включить установленный SMTP-сервер Windows. А затем запустить сценарий Powershell:

    $smtpServer = "system.abc.com" 
    $smtpFrom = "[email protected]" 
    $smtpTo = "[email protected]" 
    $messageSubject = "Put your subject here" 
    
    $message = New-Object System.Net.Mail.MailMessage $smtpfrom, $smtpto 
    $message.Subject = $messageSubject 
    $message.IsBodyHTML = $true 
    $message.Body = Get-Content debug.txt 
    
    $smtp = New-Object Net.Mail.SmtpClient($smtpServer) 
    $smtp.Send($message) 
    
  3. Вы можете включить установленный сервер SMTP в Windows. А затем запустить VBScript:

    Const ForReading = 1 
    Const ForWriting = 2 
    Const ForAppending = 8 
    Const FileToBeUsed = "debug.txt" 
    Dim objCDO1 
    Dim fso, f 
    Set fso = CreateObject("Scripting.FileSystemObject") 
    Set f = fso.OpenTextFile(FileToBeUsed, ForReading) 
    Set objCDO1 = CreateObject("CDO.Message") 
    objCDO1.Textbody = f.ReadAll 
    f.Close 
    objCDO1.TO ="[email protected]" 
    objCDO1.From = "[email protected]" 
    objCDO1.Subject = "Put your subject here" 
    objCDO1.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration /sendusing") = 2 
    objCDO1.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration /smtpserver") = "system.abc.com" 
    objCDO1.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration /smtpserverport") = 25 
    objCDO1.Configuration.Fields.Update  
    objCDO1.Send 
    Set f = Nothing 
    Set fso = Nothing 
    

Выбор за вами.

+0

Большое спасибо –

Смежные вопросы