Вопрос : Эксел посылая рабочий лист по электронной почте

Hi специалисты,

Hope кто-то могут помочь с этим по мере того как я проводил большой часть из 2 дней пытаясь отрегулировать эту часть Кодего для посылать рабочий лист по электронной почте основанное на собирая Кодем. Я надеюсь он можно tweaked довольно чем изменено вс. Также, более упрощать лучшее (если по возможности), то по мере того как я newbie.

Data inputted к листу данных. Будет собирая вызванное Кодий зоной.

There будет лист распределения имеет следующий поля: Зона и получатель. Поле зоны от листа данных manuallly inputted в колонку a вместе с именем получателей. Когда макрос «SendItAll» бежится, он копирует данные от листа данных в лист рапорта основанный на собирая Кодем в списке распределения и посылает рабочий лист по электронной почте к названному получателю. вопросы

The являются следующими:

когда рабочий лист создано для посылать его по электронной почте не смотрит как лист рапорта по мере того как оно теряет форматируя etc. также лист сам рапорта должно быть re-formatted каждое время после того как макрос бежится. как могу я улучшить Кодего для того чтобы исключить эти reformatting или пропуская данные в etc рядков 1 и 2?

Secondly, когда рабочий лист будет посылано по электронной почте как могу я получить написанным в части Кодего стандартную линию в теле сообщения заявляя к (имя получателя) и «пожалуйста нахожу прикрепило результаты» и отношения по мере того как заключительный архив

Sample etc… прикрепил… макрос вызвано спасибо заранее


Many «Senditall " class= " lastRow
>Attachments " имени " class= class= " значение "
>

class= " fileInfo "
title= " " filename class= " Results-Test.xlsm (115 KB)  яваскрипт " href= " " attachmentDetails class= (тип архива детали)  
class= " описание "
Образец File
class=
>
class=

Ответ : Эксел посылая рабочий лист по электронной почте

Этот фрагмент Кодего использует предмет внешнего вида, для того чтобы создать сообщение почты которое будет сохранено в ваших проектах.

Изменение. Сохраньте к. Пошлите немедленно для того чтобы послать его но это могло поднять вопросы с вашими установками обеспеченностью.
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:
Общественное Sub SendItAll ()
    
    Тусклое outlookApp
    Тусклое mItem
    Тусклое lRow как длиной
    На резюме ошибки затем
    Установите outlookApp = GetObject ("", «Outlook.Application»)
    Если Err.Number <> 0 после этого
        Установите outlookApp = CreateObject («Outlook.Application», "")
    Закончитесь если
    На ошибке переход 0
    Application.ScreenUpdating = Fase
    lRow = рабочий лист («данные»). Ряд («A65536»). Конец (xlUp). Рядок
    'Ясно вне все старые данные на рапорте
    Листы («рапорт»). Отборно
    Ряд («A4: ОБЪЯВЛЕНИЕ» & lRow) .ClearContents
    'Данные по вида зоной
    'Листы («данные»). Отборно
    'Ряд («A1») .CurrentRegion.Select
    'Selection.Sort Key1: =Range («A2»), коллектор: =xlYes
    'Обрабатывайте каждый показатель на распределении
    Листы («распределение»). Отборно
    FinalRow = ряд («A50»). Конец (xlUp). Рядок
    Для I = 2 к FinalRow
        Листы («распределение»). Отборно
        RegionToGet = ряд («a» & I). Значение
        Получатель = ряд («b» & I). Значение
        'Ясно вне все старые данные на рапорте
        Листы («рапорт»). Отборно
        Ряд («A4: ОБЪЯВЛЕНИЕ» & lRow) .ClearContents
        'Получите показатели от данных
        Листы («данные»). Отборно
        Ряд («A1») .CurrentRegion.Select
        'Поверните дальше AutoFilter, если оно не дальше
        Если ActiveSheet.AutoFilterMode = ложное после этого Selection.AutoFilter
        'Фильтруйте данные к как раз этой зоне
        Поле Selection.AutoFilter: =1, Criteria1: =RegionToGet
        'Выберите только видимые клетки и скопируйте для того чтобы сообщить
        Selection.SpecialCells (xlCellTypeVisible). Выберите
        Назначение Selection.Copy: =Sheets («рапорт»). Ряд («A4»)
        'Поверните Autofilter
        Selection.AutoFilter
        'Скопируйте лист рапорта к новой книге и электронная почта
        Листы («рапорт»). Экземпляр
        ActiveWorkbook.SaveAs «C:\Windows\temp\book123.xls»
        
'        Application.Dialogs (xlDialogSendMail). Покажите _
'            arg1: =Recipient, _
'            arg2: = " рапорт - «& RegionToGet
        Установите mItem = outlookApp.CreateItem (olMailItem)
        С mItem
            . К = получатель
            . Вопрос = «рапорт -» & RegionToGet
            . Телом = «это будет ваш рапорт»
            . Attachments.Add «C:\Windows\temp\book123.xls»
            . Сохраньте
        Закончитесь с
        ActiveWorkbook.Close SaveChanges: =False
        Убийство «C:\Windows\temp\book123.xls»
        Application.ScreenUpdating = Fase
      
    Затем iий
Подводная лодка конца
Другие решения  
  •  Как я добавляю кнопки на форме PDF для того чтобы добавить/извлекаю рядки данных?
  •  Шнур ошибки в блоке задвижки?
  •  сколько вариант сервера SQL на одной машине
  •  Внешний вид 2007 не может архивный файл открытой сети сохраненный
  •  Активно директория DNS записывает вопрос
  •  Отчет о доступа 2010 экспорта к CSV с коллекторами?
  •  Прокладчик OCE 9400 не начинает
  •  как добавить десятичное место в формуле в отчете о кристалла seagate
  •  Windows XP и Мичрософт Оутлоок и проблемы установителя Windows
  •  VB6 к VS2010 - консультации тренировки?
  •  
    programming4us programming4us