Imprimir página | Cerrar ventana

enviar y guardar albarán automáticamente

Impreso de: Foro de Access y VBA
Categoría: Otros de Microsoft: Windows y Office
Nombre del foro: Excel
Descripción del foro: Foro de Excel y VBA de Excel
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84218
Fecha de impresión: 26/Junio/2019 a las 04:29


Tema: enviar y guardar albarán automáticamente
Publicado por: ximo
Asunto: enviar y guardar albarán automáticamente
Fecha de publicación: 11/Enero/2019 a las 17:04
Hola,

Se me plantea un problema que no sé como abordar, he confeccionado un albarán en Word (puedo hacerlo en Exccel) si es necesario, el caso es que una vez lleno mediante botón se puede guardar en pdf con el nombre de la fecha de albarán y al mismo tiempo enviar por correo (preferiblemente CDO) con el mismo nombre (la fecha del albarán).



Saludos, ximo


-------------
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana



Respuestas:
Publicado por: ximo
Fecha de publicación: 11/Enero/2019 a las 19:14
Ya lo tengo en excel, por afinidad en la sección.

El gardado podría ser ("Albaran"_(Valor  F9)_(Valor F10))

F9= 1, 2, 3...
F10= 11/01/2019



Saludos, ximo


-------------
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana


Publicado por: ximo
Fecha de publicación: 12/Enero/2019 a las 18:20
Bueno solucionado.

Sub Rectánguloredondeado_Haga_clic_en()
On Error GoTo aviso
Dim RutaArchivo As String
Dim NombreArchivo As String
'creamos el mombre del archivo
NombreArchivo = "Albaran" & Range("F9") & Format(Range("F10"), "ddmmyyyy")
'indicamos la ruta donde queremos guardar el archivo
RutaArchivo = ActiveWorkbook.Path & "\PDFS\" & NombreArchivo & ".pdf"
'y con esto guardamos
ActiveSheet.ExportAsFixedFormat xlTypePDF, RutaArchivo
Exit Sub
aviso:
MsgBox "Error: " & Err.Description & " " & Err.Number
End Sub

Solo me faltaba el enviar por correo pero he recordado la posibilidad que nos ofrece Google gratuitamente (DRIVE) así que lo suelto en el drive de mi mujer y con el móvil ve los albaranes y cuando se los pide el veterinario se los enseña.

Podemos cerrar.


Saludos, ximo


-------------
La incansable busqueda de información abre nuestras mentes

Saludos desde Burriana


Publicado por: AnSanVal
Fecha de publicación: 13/Enero/2019 a las 21:37
¡Auto resuelto!

Gracias por compartir tu código.



-------------
Aprendemos viendo respuestas de otros, también intentando resolver dudas (intenta ayudar cuando puedas/sepas).

Mi http://achinet.mvp-access.es/" rel="nofollow - sitio_web con ejemplos Excel.



Imprimir página | Cerrar ventana