A traves de lotus tengo que enviar a las cuentas que se recogen en la columna A, los archivos que figuran en la columna B, pero no me acabo de funcionar como yo quiero, agradeceria sus comentarios En la hoja excell en la celda A1 tengo una cuenta de correo: llamemosla cuenta1 en la celda A2 tengo otra cuenta de correo: llamemosla cuenta2 En la hoja excell en la celda B1 hay un fichero llamado 4021 en la celda B2 hay otro fichero llamdo 4022 Con el codigo que a continuacion trascribo hoy me ha pasado lo siguiente: 1. Me ha lanzado tropezientos correos a la cuenta1 (no he detectado ninguno a la cuenta2, tambien es cierto que he paralizado la replicacion del lotus notes..) 2. No me ha adjuntado ningun archivo (tenia que haber adjuntado el archivo llamado "4021" (sabeis si existe algún lotus virtual con el que pueda realizar pruebas...?? Te trascribo el codigo que tengo implantado, cualquier ayuda para mi realmente es muy agradecida. Sub LotusNotsCoreCode() Dim UserName As String Dim MailDbName As String Dim Recipient As String Dim ccRecipient As String Dim mens As String Dim Attachment1 As String Dim Maildb As Object Dim MailDoc As Object Dim AttachME As Object Dim Session As Object Const path As String = "C:\" Const ext As String = ".xls" With Application .ScreenUpdating = False .DisplayAlerts = False End With ' Abro la sesion del usuario del lotus 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 Range("A1").Select While ActiveCell.Value <> "" Set MailDoc = Maildb.CREATEDOCUMENT MailDoc.Form = "Memo" Recipient = ActiveCell.Value MailDoc.SendTo = Recipient MailDoc.Subject = "Envio de su fichero excell" MailDoc.Body = "Buenos dias les adjuntamos su fichero excell del presente mes." MailDoc.SaveMessageOnSend = True Attachment1 = path & ActiveCell.Offset(0, 1).Value & ext If Attachment1 <> "" Then On Error Resume Next Set AttachME = MailDoc.CREATERICHTEXTITEM("attachment1") On Error Resume Next End If MailDoc.PostedDate = Now() On Error GoTo errorhandler1 MailDoc.SEND 0, Recipient Wend Set Maildb = Nothing Set MailDoc = Nothing Set AttachME = Nothing Set Session = Nothing With Application .ScreenUpdating = True .DisplayAlerts = True End With errorhandler1: Set Maildb = Nothing Set MailDoc = Nothing Set AttachME = Nothing Set Session = Nothing mens = MsgBox("Envio realizado por favor salga de la aplicación") End Sub un saludo

Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis Ingresar

JavaScript está desactivado. Para una mejor experiencia, por favor active JavaScript en su navegador antes de continuar.

Error en bucle

Autor del tema kino2
Fecha de inicio 29 May 2011

kino2

New member

29 May 2011

A traves de lotus tengo que enviar a las cuentas que se recogen en la columna A, los archivos que figuran en la columna B, pero no me acabo de funcionar como yo quiero, agradeceria sus comentarios...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

Iniciar sesión o registrarme para responder aquí.

Temas similares

Pregunta

Error 13 y bucle infinito

Respuestas: 5

7 Oct 2023

hc3115

Resuelto

Error en bucle

Respuestas: 9

2 Abr 2022

nito1972

Pregunta

Error en macro con bucle

Respuestas: 12

12 Nov 2021

caropiacenza

Pregunta

Error en Bucle con las funciones autofill y lookup

Respuestas: 1

11 May 2021

Leopoldo Blancas

Pregunta

bucle con on error

Respuestas: 0

27 Feb 2018

rubikcat

Pregunta

ERROR! EN BUCLE FOR NEXT

Respuestas: 3

18 Abr 2011

Cèsar1

Pregunta

Error en libros con macros

Respuestas: 1

17 Ago 2026

Abraham.Valencia

Pregunta

en excel 2021 la macro que contiene on error goto no me funciona.

Respuestas: 2

2 May 2026

JSD

Resuelto

Se ha producido el error “9” Excel 2016

Respuestas: 2

5 Abr 2026

Luisaco

Resuelto

Error en buscar por detalle

Respuestas: 2

15 Feb 2026

jcvelez

Facebook X Bluesky LinkedIn Reddit Pinterest Tumblr WhatsApp Correo electrónico Enlace

Bienvenido a nuestro foro Excel 👋

Tenemos 135.000 usuarios registrados,
y 240.000 preguntas y respuestas Excel.

Primero 👉 regístrate gratis aquí 👈
para ver contenidos y descargas
sin restricciones!

Este sitio usa cookies para ayudar a personalizar el contenido, adaptar su experiencia y mantenerlo conectado si se registra.
Al continuar usando este sitio, usted está consintiendo nuestro uso de cookies.

Aceptar Saber más…

Volver

Arriba