............ Foro Excel
Si no lo has hecho aún: REGISTRATE!!!

Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Ver el tema anterior Ver el tema siguiente Ir abajo

Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Mensaje por GalileoGali el Mar Mayo 12, 2009 7:56 pm

Transcribo un codigo que alguna vez probé con exito, el Nombre de su autor: Nate Oliver

Código:
Sub LotusNotsCoreCode()
    '    Send an e-mail & attachment using Lotus Not(s)
    '    Original Code by Nate Oliver (NateO)
    '    Declare Variables for file and macro setup

    Dim UserName As String
    Dim MailDbName As String
    Dim Recipient As String
    Dim ccRecipient As String
    Dim ans As String
    Dim Attachment1 As String
    Dim Maildb As Object
    Dim MailDoc As Object
    Dim AttachME As Object
    Dim Session As Object
    Dim EmbedObj1 As Object

    With Application
        .ScreenUpdating = False
        .DisplayAlerts = False

      ' Open and locate current LOTUS NOTES User
   
        Set Session = CreateObject("Notes.NotesSession")
            UserName = Session.UserName
        MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) - InStr(1, UserName, " "))) & ".nsf"
        Set Maildb = Session.GetDatabase("", MailDbName)
        If Maildb.IsOpen = True Then
        Else
            Maildb.OPENMAIL
        End If
   
      ' Create New Mail and Address Title Handlers
   
        Set MailDoc = Maildb.CREATEDOCUMENT
   
        MailDoc.Form = "Memo"
        '  Select range of e-mail addresses
        Recipient = Sheets("E-Mail Addresses").Range("A2").Value
        MailDoc.SendTo = Recipient
       
        ans = MsgBox("Would you like to Copy (cc) anyone on this message?" _
            , vbQuestion & vbYesNo, "Send Copy")
       
            If ans = vbYes Then
                ccRecipient = InputBox("Please enter the additional recipient's e-mail address" _
                    , "Input e-mail address")
                MailDoc.CopyTo = ccRecipient
            End If
               
        MailDoc.Subject = "Pending Report"
            MailDoc.Body = _
        "Attached is a Pending Report.  Please acknowledge receipt."
   
    '  Select Workbook to Attach to E-Mail
   
        MailDoc.SaveMessageOnSend = True
            Attachment1 = ActiveWorkbook.Name '"C:\\YourFile.xls" '    Required File Name
   
        If Attachment1 <> "" Then
            On Error Resume Next
                Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment1")
                Set EmbedObj1 = AttachME.embedobject(1454, "attachment1", ActiveWorkbook.Name, "") 'Required File Name
            On Error Resume Next
        End If
   
        MailDoc.PostedDate = Now()
            On Error GoTo errorhandler1
        MailDoc.SEND 0, Recipient
   
        Set Maildb = Nothing
            Set MailDoc = Nothing
                Set AttachME = Nothing
            Set Session = Nothing
        Set EmbedObj1 = Nothing
   
        .ScreenUpdating = True
        .DisplayAlerts = True
    End With
   
errorhandler1:
   
        Set Maildb = Nothing
            Set MailDoc = Nothing
                Set AttachME = Nothing
            Set Session = Nothing
        Set EmbedObj1 = Nothing
   
End Sub

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Mensaje por AleM el Dom Jul 15, 2012 5:54 pm

Hola!
para pedir tu ayuda, fijate que tengo una macro a la cual le agregue un boton para enviar archivos por lotus notes, tome tu código, el cual me munciona muy bien por que si envia el correo, solo que no me envia ningún archivo adjunto.
Muchas gracias de antemano
Ale Márquez

AleM

Femenino Cantidad de envíos : 2
Edad : 42
Ciudad - Pais : mexico
Version de Excel : 2007
Fecha de inscripción : 15/07/2012

Volver arriba Ir abajo

Re: Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Mensaje por GalileoGali el Dom Jul 15, 2012 6:13 pm

Bienvenido. No tengo en este momento en mi sistema el Lotus Notes, asi que mis sugerencias, podras probarlas vos si cuentas con el programa

Código:
 If Attachment1 <> "" Then
            On Error Resume Next
                Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment1")
                Set EmbedObj1 = AttachME.embedobject(1454, "attachment1", ActiveWorkbook.Name, "") 'Required File Name
            On Error Resume Next
        End If

En este còdigo elimna con un apostrofo ' precediendo cada lìnea las dos "On Error Resume next" .

Corre el codigo, es probable que en alguna de estas dos lìneas se interrumpa,

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Mensaje por AleM el Lun Jul 16, 2012 4:23 pm

Hola!
Antes que nada, muchas gracias por tu pronta respuesta, estuvé haciendo algunas pruebas con tu código y afortunadamente ya quedo. Te envío el estracto que modifiqué y que ya me permite adjuntar el archivo a enviarse

If Attachment1 <> "" Then
On Error Resume Next
Set AttachME = MailDoc.CREATERICHTEXTITEM("Attachment1")
Set EmbedObj1 = AttachME.EMBEDOBJECT(1454, "", Attachment1, "Attachment1")
MailDoc.CREATERICHTEXTITEM ("Attachment1")
On Error Resume Next
End If

prácticamente, la única línea que se modifico fué la 4ta y se agregó la 5ta. y con esto ya quedo.

AleM

Femenino Cantidad de envíos : 2
Edad : 42
Ciudad - Pais : mexico
Version de Excel : 2007
Fecha de inscripción : 15/07/2012

Volver arriba Ir abajo

Re: Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Mensaje por ezecentu el Miér Nov 28, 2012 2:40 pm

Hola Galileo... muy buena información...
Tengo unas dudas, consultas y un Codigo para mostrarte, pero por recien registrado no puedo hacer hasta dentro de 7 dias... te lo podria pasar por otro lado¿?

Gracias Saludos...

ezecentu

Masculino Cantidad de envíos : 3
Edad : 31
Ciudad - Pais : Sunchales - Sta. Fe- Argentina
Version de Excel : 2000-2003-2007
Fecha de inscripción : 28/11/2012

Volver arriba Ir abajo

Re: Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Mensaje por GalileoGali el Jue Nov 29, 2012 7:54 am

Recien me entero que tenemos algo asi como un periodo de CARENCIA????

DONDE TE APARECE ESO?

_________________
GalileoGali
M.A.P. 2010-2013
Microsoft Active Professional
avatar
GalileoGali
Admin

Masculino Cantidad de envíos : 1962
Edad : 61
Ciudad - Pais : QUIROGA, Argentina
Version de Excel : 2000-2003-2007-2010
Fecha de inscripción : 24/01/2008

http://excelgali.mejorforo.net

Volver arriba Ir abajo

Re: Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Mensaje por ezecentu el Lun Dic 03, 2012 11:13 am

Esto me aparece al querer poner una Respues ma explicativa y detallada, con el codigo que te mensiono y una imagen... al Pulsar en enviar, me sale esto

Fecha y hora actual: Lun Dic 03, 2012 11:11 am
Los nuevos usuarios no son autorizados enviar vínculos externos o emailes durante 7 días. Por favor, contacta el admin del foro para tener más informaciones.


ezecentu

Masculino Cantidad de envíos : 3
Edad : 31
Ciudad - Pais : Sunchales - Sta. Fe- Argentina
Version de Excel : 2000-2003-2007
Fecha de inscripción : 28/11/2012

Volver arriba Ir abajo

Re: Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Mensaje por ezecentu el Miér Dic 12, 2012 11:38 am

Ya esta solucionado, Gracias...

ezecentu

Masculino Cantidad de envíos : 3
Edad : 31
Ciudad - Pais : Sunchales - Sta. Fe- Argentina
Version de Excel : 2000-2003-2007
Fecha de inscripción : 28/11/2012

Volver arriba Ir abajo

Re: Enviar Mail con Lotus Notes desde Excel con archivo adjunto

Mensaje por Contenido patrocinado


Contenido patrocinado


Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.