• Martes 25 de Enero de 2022, 21:14

Autor Tema:  Enviar correo desde servidor domino utilizando powershell  (Leído 1535 veces)

pakonukem

  • Nuevo Miembro
  • *
  • Mensajes: 1
    • Ver Perfil
Enviar correo desde servidor domino utilizando powershell
« en: Viernes 23 de Enero de 2009, 12:25 »
0
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