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
