Lotus Notes - Enviar correo via servidor domino usando powershel

 
Vista:

Enviar correo via servidor domino usando powershel

Publicado por pakonukem (2 intervenciones) el 23/01/2009 12:28:21
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", "[email protected]")
$memodoc.appenditemvalue("Recipients", "[email protected]")
$memodoc.appenditemvalue("From", "[email protected]")
$memodoc.appenditemvalue("Principal", "[email protected]")
$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", "[email protected]")
Call memodoc.appenditemvalue("Recipients", "[email protected]")
Call memodoc.appenditemvalue("From", "[email protected]")
Call memodoc.appenditemvalue("Principal", "[email protected]")
Call memodoc.appenditemvalue("Subject", "My Subject")
Call memodoc.save(True, False)
Call memodoc.Send(False)
End If
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Enviar correo via servidor domino usando powers

Publicado por pakonukem (2 intervenciones) el 26/01/2009 12:01:39
Me respondo yo mismo...

$memodoc = $maildb.createdocument()
...
$memodoc.Save(1, 0)
$memodoc.Send(0)
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar