Cuestión : Excel que envía por correo electrónico la hoja de trabajo

Hola los expertos,

Hope alguien pueden asistir con esto pues he pasado la mayor parte de dos días que intentaban ajustar este pedazo de código para que haya enviar por correo electrónico una hoja de trabajo basada en un código que agrupaba. Estoy esperando que puede ser pellizcado algo que cambiado enteramente. También, simplificada el mejor (si es posible) como yo son un newbie.

Data se entra a la hoja de datos. Hay un código que agrupa llamado región. el

There es una hoja de la distribución que tiene los campos siguientes: Región y recipiente. El campo de la región de la hoja de datos manuallly se entra en la columna A junto con el nombre de los recipientes. Cuando se funciona con la macro “SendItAll”, copia los datos de la hoja de datos en la hoja del informe basada en el código que agrupa en la lista de distribución y envía por correo electrónico la hoja de trabajo al recipiente nombrado. las ediciones del

The son: el

cuando la hoja de trabajo se crea para enviarlo por correo electrónico no parece la hoja del informe mientras que pierde el etc. de configuración. También la hoja sí mismo del informe tiene que ser cambiada formato cada vez después de que se funcione con la macro. ¿cómo puedo mejorar el código para eliminar este cambio de formato o datos perdidos en el etc de las filas 1 y 2? el

Secondly, cuando se envía por correo electrónico la hoja de trabajo a cómo puedo conseguir escrito en el pedazo de código una línea estándar en el cuerpo del mensaje que indica (el nombre del recipiente) y “encuentro por favor ató los resultados” y los respetos como el archivo del

Sample del closing etc… ató… macro se llama las gracias por adelantado del

Many de “Senditall " class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
class= " fileInfo " del
el title= " del " nombre de fichero del class= " del Results-Test.xlsm el class= (115 KB)  Javascript del href= " de los " attachmentDetails del class= " del (tipo de archivo detalles)  
class= " descripción " del
Muestra File
el class= de
del >
class= del

Respuesta : Excel que envía por correo electrónico la hoja de trabajo

Este recorte de código utiliza el objeto de la perspectiva, para crear un mensaje del correo que sea ahorrado en sus bosquejos.

Cambio. Ahorrar a. Enviar para enviarlo inmediatamente pero esto pudo plantear cuestiones con sus ajustes de la seguridad.
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:
63:

SendItAll secundario público ()
    
    outlookApp dévil
    mItem dévil
    lRow dévil como de largo
    En curriculum vitae del error después
    Fijar el outlookApp = GetObject ("", “Outlook.Application”)
    Si Err.Number <> 0 entonces
        Fijar el outlookApp = CreateObject (“Outlook.Application”, el "")
    Terminar si
    En el error 0 indicado
    Application.ScreenUpdating = Fase
    lRow = hojas de trabajo (“datos”). Gama (“A65536”). Extremo (xlUp). Fila
    'Claro hacia fuera cuaesquiera viejos datos sobre informe
    Hojas (“informe”). Selecto
    Gama (“A4: ANUNCIO” y lRow) .ClearContents
    'Datos de la clase por la región
    'Hojas (“datos”). Selecto
    'Gama (“A1”) .CurrentRegion.Select
    'Selection.Sort Key1: =Range (“A2”), jefe: =xlYes
    'Procesar cada expediente en la distribución
    Hojas (“distribución”). Selecto
    FinalRow = gama (“A50”). Extremo (xlUp). Fila
    Para i = 2 a FinalRow
        Hojas (“distribución”). Selecto
        RegionToGet = gama (“A” y i). Valor
        Recipiente = gama (“B” y i). Valor
        'Claro hacia fuera cuaesquiera viejos datos sobre informe
        Hojas (“informe”). Selecto
        Gama (“A4: ANUNCIO” y lRow) .ClearContents
        'Conseguir los expedientes de datos
        Hojas (“datos”). Selecto
        Gama (“A1”) .CurrentRegion.Select
        'Girar AutoFilter, si no está prendido
        Si ActiveSheet.AutoFilterMode = entonces Selection.AutoFilter falso
        'Filtrar los datos apenas a esta región
        Campo de Selection.AutoFilter: =1, Criteria1: =RegionToGet
        'Seleccionar solamente las células visibles y copiar para divulgar
        Selection.SpecialCells (xlCellTypeVisible). Seleccionar
        Destinación de Selection.Copy: =Sheets (“informe”). Gama (“A4”)
        'Apagar el Autofilter
        Selection.AutoFilter
        'Copiar la hoja del informe a un nuevo libro y a un email
        Hojas (“informe”). Copia
        ActiveWorkbook.SaveAs “C:\Windows\temp\book123.xls”
        
'        Application.Dialogs (xlDialogSendMail). Demostrar el _
'            arg1: =Recipient, _
'            arg2: = " informe - “y RegionToGet
        Fijar el mItem = outlookApp.CreateItem (el olMailItem)
        Con el mItem
            . A = recipiente
            . Tema = “informe -” y RegionToGet
            . El cuerpo = “esto es su informe”
            . Attachments.Add “C:\Windows\temp\book123.xls”
            . Ahorrar
        Terminar con
        ActiveWorkbook.Close SaveChanges: =False
        Matanza “C:\Windows\temp\book123.xls”
        Application.ScreenUpdating = Fase
      
    Después i
Submarino del extremo
Otras soluciones  
 
programming4us programming4us