Отправка почты макросом Excel

[doober]

Смотря какой куб и квадрат,ясейчас как Юлий,делаю несколько дел одновременно.а ты еще почтой грузишь.Увидел 9 ,значит ее убрать.

[valerij]

Сообщение от doober

а ты еще почтой грузишь.

Да, нифига не получается, Сереж, дай, готовый, рабочий макрос, а уж потом и по нему, буду учится....
Бо задрал меня уже факс....
Вот так, отсылает 2 из 3 листов, методом тыка ....?????

If WB.Sheets(n).Name = "1@" Or WB.Sheets(n).Name = "4@" Or WB.Sheets(n).Name = "9@" Then
   WB.Sheets(3).Delete

[doober]

Давай так.Я сегодня завта расхлебаюсь с задачей,сделаю не спеша.Самое смешное- у меня нормально работает.Может тебенаписать отдельно программу для отправки почты.
Будет кнопка на листе и все.Внешне ничего не поменяется

[valerij]

Сообщение от doober

Давай так.Я сегодня завта расхлебаюсь с задачей,сделаю не спеша.Самое смешное- у меня нормально работает.Может тебенаписать отдельно программу для отправки почты.
Будет кнопка на листе и все.Внешне ничего не поменяется

Спешка, не нужна, это не горит..
Отдельно от эксель не пойдет, я же заявки в эксель формирую.
На всякий случай вот модуль, глянь, может я чего не туды.
Кнопку я сделаю, этому я научился,..
Во, глянь модуль, если явного ни чего нет, я тебе свой заявочный файл на мыло скину, ОК?

[doober]

Кидай.....

[doober]

Подправил модуль-кинул на мыло.Все работает как надо,3 лист не удаляет

[valerij]

Сообщение от doober

3 лист не удаляет

А надо, что бы удалял, я тебе послал на мыло

[valerij]

Сергей!!
Все, сделал как мне надо. Собрал с трех макросов в одну "кучу".

Sub My_send()
        iNeme = Format(Sheets(1).[C3], "dd.mm.yy") & ".xls"
    path = Replace(ThisWorkbook.FullName, ThisWorkbook.Name, "Заявка На " & iNeme)
    Dim WB As Workbook: Dim ind As Integer
        ind = ActiveSheet.Index
    Application.DisplayAlerts = False
        Workbooks.Add xlWBATWorksheet
            ActiveWorkbook.SaveAs Filename:=path, FileFormat:=xlWorkbookNormal
        ActiveSheet.Name = "temp"
    Dim li As Long
        Application.DisplayAlerts = False
'--------------------------------------------------------------------
    ind = 2 'Копируем листы с 2 и до 1
'-----------------------------------------------------------------
    For n = ind To 1 Step -1
        ThisWorkbook.Sheets(n).Copy Before:=ActiveWorkbook.Sheets(1)
            ActiveWorkbook.Sheets(1).Protect Password:="12345", Contents:=True, _
        Scenarios:=True, UserInterfaceOnly:=True
    Next: Workbooks("Заявка На " & iNeme).Sheets("temp").Delete
'**************************** Удаляем макросы ********************************************
    For Each iVBComponent In Workbooks("Заявка На " & iNeme).VBProject.VBComponents
        With iVBComponent
            Select Case .Type
                Case 1 To 2: .Collection.Remove iVBComponent
                Case 100: .Codemodule.deletelines 1, .Codemodule.countoflines
            End Select
        End With
    Next
'*****************************************************************************************
        Workbooks("Заявка На " & iNeme).Save
            Workbooks("Заявка На " & iNeme).Close False
        Application.DisplayAlerts = True
  UnProtectAllSheets
End Sub

Игорь, Сергей!
Случайно обнаружил, а зачем вводить пароль?

SaveSetting Application.Name, "mail", "sendpassword", "1111111"    ' Ваш  пароль

Я забыл переправить на свой, оставил "1111111" и письмо прекрасно пришло.

[doober]

поздравляю, Валера-ты великий спамер.Но при пароле 111111 выполни макрос SaveAccountData

А потом попробуй сделать отправку.У тебя в сеттингах правильный пароль записан.

[valerij]

Сообщение от doober

А потом попробуй сделать отправку.У тебя в сеттингах правильный пароль записан.

А-а!!!!
Допер..... СПАСИБО