none
Проблема по отправке данных RRS feed

 > 

  • Вопрос

  • Question
    Нужно войти
    0
    Нужно войти

    У меня вопрос: файлы exel-кие или exel файл с множетсвом листов.

    Например: 1-ый файл (1-ый лист) каждый раз отправляю на один и тот же адрес, второй также, но на друго адрес. Как можно упростить. Чтоб мне каждый раз не искать адрес и нажать отправить из списка контактов на эти файлы (или листы)? Это упрощение где делать в exel или outlook-е?
    6 ноября 2007 г. 7:41
    |

Ответы

Все ответы

  • Question
    Нужно войти
    0
    Нужно войти

    если не использовать скрипты и VB то рекомендую вам воспользоваться Excel-евской функцией "Отправить" (меню Файл затем Отправить или аналогичная иконка на панели задач).

     

    Данные об адресате там запоминаются. Вам нужно просто открыть книгу и нажать иконку.

    6 ноября 2007 г. 8:18
    |
    Модератор
  • Question
    Нужно войти
    0
    Нужно войти

    Вопрос мне кажется не поняли. У меня есть больше ста файлов exel - кие. Каждый файл надо отправить каждый день по одному и тому же адресу. Например. файл 1.xls каждый день отправляю 1@mail.ru, файл 2.xls также отправляю на другой адрес 2@mail.ru и т.д. У меня вопрос как это упростить? И в какой проге это сделать? В самом Outlook - е или Exсel -е?

    7 ноября 2007 г. 4:39
    |
  • Question
    Нужно войти
    0
    Нужно войти

    попробую привести код, который поможет вам автоматизировать ваш процесс:

     

    Образец кода

    Set objEmail = CreateObject("CDO.Message")

    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = _
            "you-mail-server"
    objEmail.Configuration.Fields.Item _
        ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    objEmail.Configuration.Fields.Update


    objEmail.From = "user@contoso.com"
    objEmail.To = "user@contoso.com"
    objEmail.Subject = "Hello!"
    objEmail.AddAttachment "c:\autoexec.bat"
    objEmail.Send

     

    objEmail.From = "user@contoso.com"
    objEmail.To = "user@contoso.com"
    objEmail.Subject = "Hello!"
    objEmail.AddAttachment "c:\autoexec.bat"
    objEmail.Send

     

     


    Сохраните этот код в файле с расширением vbs. Перед использованием отредактируйте поля To, From и т.д.

     

    Посоветуйтесь с вашим системным администратором, что бы настроить отправку через ваш почтовый сервер.

    7 ноября 2007 г. 9:50
    |
    Модератор