Odeslání oblasti buněk mailem
Private Sub CommandButton3_Click()
Dim objoutlook As Object
Dim objmail As Object
Set objoutlook = CreateObject("outlook.application")
Set objmail = objoutlook.createitem(0)
ActiveSheet.Range("a1:g39").Copy
Workbooks.Add
ActiveSheet.Paste
ActiveWorkbook.SaveAs "C:\Documents and Settings\Dokumenty\oblast.xls"
With objmail
.to = "siggi@siggi.cz"
.Subject = "oblast"
.Attachments.Add ActiveWorkbook.FullName
.display
End With
ActiveWorkbook.Close
Kill ("C:\Documents and Settings\Dokumenty\oblast.xls")
Set objoutlook = Nothing
Set objmail = Nothing
End Sub
Odeslání oblasti sešitu 2
ActiveSheet.Range("A1:B100").Select ' - oblast buněk které posílám
ActiveWorkbook.EnvelopeVisible = True
With ActiveSheet.MailEnvelope
.Introduction = "posílám buňky"
.Item.To = "siggi@siggi.cz" '- komu posílám
.Item.Subject = "buňky" '- předmět mailu
.Item.Send
End With
'- buňky odeslané tímto kódem nepřijdou jako příloha mailu, ale jako text mailu