Переключатель на 4 положения

Два выключателя спарены

https://www.youtube.com/watch?v=SCo_KTUFa78

Отправка листа по электронной почте VBA EXCEL

Sub SendSheetççç()
ThisWorkbook.ActiveSheet.Copy
'   ThisWorkbook.Sheets("Лист1").Copy
With ActiveWorkbook
    .SendMail Recipients:="vasya@pupkin.com", Subject:="тема"
   .Close SaveChanges:=False
End With
End Sub

====================================

Sub SendActiveWorkbook()

Dim name As String
Dim email As String

Set name = Range("C17").Value
Set email = name & "@xxx.com.au"

    ActiveWorkbook.SendMail _
    Recipients:="xxxx@xxx.com.au", email, _
    Subject:="Stock Request" & Format(Date, "dd/mmm/yyyy")
    
End Sub

===================================

Function SendMail()     
Dim y As String     
Dim x As Integer     
y = Sheets(1).Range("M1").Value     
x = Sheets(1).Range("K1").Value     
' Copy the sheet(1)     
ThisWorkbook.Sheets(x).Copy     
' Send Email     
With ActiveWorkbook     
.SendMail Recipients:="y", Subject:="test" & Format(Date, "dd/mmm/yy")     
.Close SaveChanges:=False     
End With     
' Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value     
End Function  

======================================

Function SendMail()     
Dim y As String     
Dim x As Integer     
y = Sheets(1).Range("M1").Value     
x = Sheets(1).Range("K1").Value     
' Copy the sheet(1)     
ThisWorkbook.Sheets(x).Copy     
' Send Email     
With ActiveWorkbook     
.SendMail Recipients:="y", Subject:="test" & Format(Date, "dd/mmm/yy")     
.Close SaveChanges:=False     
End With     
' Subject:=Range("Feuil1!B1").Value & " " & Range("Feuil1!A1").Value     
End Function  

===========================================

http://www.snb-vba.eu/VBA_Excelgegevens_mailen_en.html

Отправка письма из Excel

https://www.youtube.com/watch?v=x7At5hkOQeQ

Sub SendWorkbook()

    ActiveWorkbook.SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик"

End Sub

 

Sub SendSheet()

    ThisWorkbook.Sheets("Лист1").Copy

    With ActiveWorkbook

        .SendMail Recipients:="vasya@pupkin.com", Subject:="Лови файлик"

        .Close SaveChanges:=False

    End With

End Sub




http://www.planetaexcel.ru/techniques/3/48/