Error en Macro envio Mail
Hola y Gracias ante todo!
Os paso esta macro haber si me pueden encontrar el error que me da.
Concrtamnente me devuelve el error, "Error 53,...Archivo no encontrado"
el archivo se encuentra en la ruta logicamente.
a parte me resalta en amarillo la instruccion;
" Set ts = Fso.OpenTextFile(firma, ForReading, False)"
la macro en cuestion es:
Sub abrirarchivodefirma()
'Declaración de variables
Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object
'Se declara un objeto de tipo Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Se crea un nuevo mensaje
Set objMail = objOutlook.CreateItem(olMailItem) 'Create a new
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
'Se le asignan los valores a las distintas propiedades del objeto "mail"
With objMail
'A quien va dirigido se podría escribir un grupo de usuarios de Outlook
.to = Range("a1").Value
'Se especifica el asunto
.Subject = "aaaaaaaaa SL"
'Se especifica lo que se quiere que diga el mensaje
.body = "Hola, " & Chr(13) & " " & Chr(13) & "xxxxxxxxxxxxxxx." & Chr(13) & " " & Chr(13) & "xxxxxxxxxxx." & Chr(13) & " " & Chr(13) & "xxxxxxxxx," & Chr(13) & "xxxxxxx" & Chr(13) & "xxxxxxx, S.L."
'Se escriben el o los archivos a adjuntar en el mail
.Attachments.Add "C:\Documents and Settings\GDalmau\Escritorio\Clients\qqqqqq\Proposta qqqqqqq.pdf"
Dim Fso As New FileSystemObject
Dim ts As TextStream
Dim renglon As String
Dim firma As String
'tienes que buscar el archivo que contiene tu firma
'por ejemplo la firma que yo cree se guardo en:
'C:\WINDOWS\Application Data\Microsoft\Signatures\Firma.txt
'entonces decimos que
firma = "C:\Documents and Settings\GDalmau\Datos de programa\Microsoft\Firmas\Gerard.txt"
Set ts = Fso.OpenTextFile(firma, ForReading, False)
Do Until ts.AtEndOfStream
renglon = ts.ReadLine
tuvariablebody = tuvariablebody & renglon
Loop
'cierras archivo firma
ts.Close
'Se manda el mensaje
.Send
End With
'Se cierran todos los objetos utilizados
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
Lo que quiero hacer con eso es, mandar un archivo PDF como adjunto a una direccion que esta en una celda concreta, adjuntando al mail el archivo de firma personal que tengo en mi aoutllok!!
Mil Gracias
Os paso esta macro haber si me pueden encontrar el error que me da.
Concrtamnente me devuelve el error, "Error 53,...Archivo no encontrado"
el archivo se encuentra en la ruta logicamente.
a parte me resalta en amarillo la instruccion;
" Set ts = Fso.OpenTextFile(firma, ForReading, False)"
la macro en cuestion es:
Sub abrirarchivodefirma()
'Declaración de variables
Dim objOutlook As Object
Dim objMail As Object
Dim objOutlookAttach As Object
'Se declara un objeto de tipo Outlook
Set objOutlook = CreateObject("Outlook.Application")
'Se crea un nuevo mensaje
Set objMail = objOutlook.CreateItem(olMailItem) 'Create a new
Set objOutlookAttach = objOutlook.CreateItem(olAttachMents)
'Se le asignan los valores a las distintas propiedades del objeto "mail"
With objMail
'A quien va dirigido se podría escribir un grupo de usuarios de Outlook
.to = Range("a1").Value
'Se especifica el asunto
.Subject = "aaaaaaaaa SL"
'Se especifica lo que se quiere que diga el mensaje
.body = "Hola, " & Chr(13) & " " & Chr(13) & "xxxxxxxxxxxxxxx." & Chr(13) & " " & Chr(13) & "xxxxxxxxxxx." & Chr(13) & " " & Chr(13) & "xxxxxxxxx," & Chr(13) & "xxxxxxx" & Chr(13) & "xxxxxxx, S.L."
'Se escriben el o los archivos a adjuntar en el mail
.Attachments.Add "C:\Documents and Settings\GDalmau\Escritorio\Clients\qqqqqq\Proposta qqqqqqq.pdf"
Dim Fso As New FileSystemObject
Dim ts As TextStream
Dim renglon As String
Dim firma As String
'tienes que buscar el archivo que contiene tu firma
'por ejemplo la firma que yo cree se guardo en:
'C:\WINDOWS\Application Data\Microsoft\Signatures\Firma.txt
'entonces decimos que
firma = "C:\Documents and Settings\GDalmau\Datos de programa\Microsoft\Firmas\Gerard.txt"
Set ts = Fso.OpenTextFile(firma, ForReading, False)
Do Until ts.AtEndOfStream
renglon = ts.ReadLine
tuvariablebody = tuvariablebody & renglon
Loop
'cierras archivo firma
ts.Close
'Se manda el mensaje
.Send
End With
'Se cierran todos los objetos utilizados
Set objMail = Nothing
Set objOutlook = Nothing
End Sub
Lo que quiero hacer con eso es, mandar un archivo PDF como adjunto a una direccion que esta en una celda concreta, adjuntando al mail el archivo de firma personal que tengo en mi aoutllok!!
Mil Gracias
