none
Enviar correo desde servidor domino utilizando powershell

    Question

  • Hola,

    Estoy tratando de crear un correo en un mail.box de un servidor remoto y enviarlo. En visual basic script me ha funcionado, pero en powershell me falla al intentar el appenditemvalue, y me gustaría no hacer la chapuza de llamar el vbs desde el script de powershell... ¿a alguien se le ocurre algo? Gracias

    Inserto los códigos de vbs y powershell

    ---PS---
    $notes = New-Object -comobject Lotus.NotesSession
    $notes.initialize("Password")
    $maildb = $notes.GetDatabase("Server", "mail.box")
    if ($maildb.isopen)
    {$memodoc = $maildb.createdocument
    $memodoc.AppendItemValue("Form", "Memo")
    $memodoc.appenditemvalue("SendTo", "johnsmith@mailserver.com")
    $memodoc.appenditemvalue("Recipients", "johnsmith@mailserver.com")
    $memodoc.appenditemvalue("From", "petergriffin@mailserver.com")
    $memodoc.appenditemvalue("Principal", "petergriffin@mailserver.com")
    $memodoc.appenditemvalue("Subject", "My subject")
    $memodoc.save(True, False)
    $memodoc.Send(False)}


    ---VBS---
    Set session = CreateObject("Lotus.NotesSession")
    session.initialize("Password")
    Set maildb = session.GetDatabase("Server", "mail.box")
    If maildb.isopen Then
    Set memodoc = maildb.CreateDocument
    Call memodoc.AppendItemValue("Form", "Memo")
    Call memodoc.appenditemvalue("SendTo", "johnsmith@mailserver.com")
    Call memodoc.appenditemvalue("Recipients", "johnsmith@mailserver.com")
    Call memodoc.appenditemvalue("From", "petergriffin@mailserver.com")
    Call memodoc.appenditemvalue("Principal", "petergriffin@mailserver.com")
    Call memodoc.appenditemvalue("Subject", "My Subject")
    Call memodoc.save(True, False)
    Call memodoc.Send(False)
    End If
    Friday, January 23, 2009 11:42 AM

Answers