Dirección de correo en una celda.

09/09/2008 - 21:03 por Julián | Informe spam
Tengo un libro de Excel denominado Averías que utilizo para controlar las
averías que se producen en la empresa en la que trabajo.
El libro tiene las siguientes hojas:
General: en esta hoja anoto las averías.
OR: en esta hoja hago un documento (albarán) que enviaré al profesional.
Profesionales: en esta hoja están los datos de identificación de los
profesionales.
Aviso: un aviso para el caso de que un profesional específico.
Oficinas: la relación de las oficinas en las que pueden producirse averías.
En la hoja general utilizo los siguientes campos:
Núm Fecha Of Avería Cl Profesional
En la hoja OR (Orden de Reparación) utilizo la información de la hoja
General y también información de la hoja Profesionales para hacer un
documento que es el que a continuación, y por correo electrónico, enviaré al
profesional que va a realizar la reparación de la avería.
En la hoja OR, en la celda D7 indico la dirección de correo electrónico del
profesional por medio de la función BuscarV.
El procedimiento de trabajo es el siguiente:
1. Cubro los datos de la avería en la hoja General.
2. Por medio de la macro EnvíoOR hago lo siguiente:
a. Imprimo en .pdf la orden de reparación.
b. Llamo al programa de correo electrónico.
c. Adjunto el archivo .pdf
d. Vuelvo a la hoja General.
La macro es la siguiente:
Sub EnvíoOR()
'
' EnvíoOR Macro
' Macro grabada el 20/05/2008 por Julián
''
ActiveSheet.Next.Select
Application.ActivePrinter = "CutePDF Writer en CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer en CPW2:", Collate:=True
Range("D7").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.ActivePrinter = "Impres2 en LPT1:"
ActiveSheet.Previous.Select
Range("B6").Select
Selection.End(xlDown).Offset(1, 0).Select
End Sub
Problema que tengo
A pesar de que el valor de la celda D7 aparece la dirección de correo
electrónico del profesional que corresponde con el código indicado en la hoja
General, la dirección de correo electrónico, cuando hago el envío, siempre es
la misma que indiqué cuando di de alta el hipervínculo. Esta circunstancia me
obliga a escribir la dirección de correo electrónico cada vez que envío una
orden de reparación.
¿Cómo puedo hacer para que cada vez que cada vez que haga un envío, este se
haga al profesional que aparece en la celda D7 y no al que utilicé cuando
creé el hipervínculo?

Saludos,
Julián.
 

Leer las respuestas

#1 Héctor Miguel
09/09/2008 - 23:56 | Informe spam
hola, Julián !

los hipervinculos no cambian (el salto) por el solo "hecho" de modificar el texto en la celda que los contiene
a menos que (re)insertes como hipervinculos las direcciones "cambiantes" en tu codigo -?-

si tu cliente de correos no es office-outlook / outlook-express
revisa la siguiente informacion en la pagina de Ron DeBruin:
-> Problems with sending mail from Excel
http://www.rondebruin.nl/mail/problems.htm

tambien tienes a tu disposicion otras secciones con ejemplos (codigo y descargas) p.e.
-> Example Code for sending mail from Excel
http://www.rondebruin.nl/sendmail.htm
-> Sending mail from Excel with CDO (Collaboration Data Objects)
http://www.rondebruin.nl/cdo.htm
-> Mail Add-ins for Excel (Outlook, Outlook Express or Windows Mail)
http://www.rondebruin.nl/mail/add-in.htm

si cualquier duda (o informacion adicional)... comentas ?
saludos,
hector.

__ OP __
> La macro es la siguiente:
Sub EnvioOR()
ActiveSheet.Next.Select
Application.ActivePrinter = "CutePDF Writer en CPW2:"
ActiveWindow.SelectedSheets.PrintOut Copies:=1, ActivePrinter:= _
"CutePDF Writer en CPW2:", Collate:=True
Range("D7").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
Application.ActivePrinter = "Impres2 en LPT1:"
ActiveSheet.Previous.Select
Range("B6").Select
Selection.End(xlDown).Offset(1, 0).Select
End Sub
Problema que tengo
A pesar de que el valor de la celda D7 aparece la direccion de correo electronico
cuando hago el envio, siempre es la misma que... cuando di de alta el hipervinculo...

Preguntas similares