SoloCodigo
Programación Específica => Lotus => Otros temas específicos => Domino => Mensaje iniciado por: pakonukem en Viernes 23 de Enero de 2009, 12:25
-
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