Odeslání celého sešitu mailem
'ODESLÁNÍ CELÉHO SEŠITU
Private Sub CommandButton1_Click()
Dim objoutlook As Object
Dim objmail As Object
Set objoutlook = CreateObject("outlook.application")
Set objmail = objoutlook.createitem(0)
With objmail
.to = "siggi@siggi.cz"
.Subject = "první mail"
.body = "to je zkouška posílání mailu"
With .Attachments
.Add ThisWorkbook.FullName
End With
.readreceiptrequested = True
.display
End With
Application.StatusBar = "posílám pryč"
Set objoutlook = Nothing
Set objmail = Nothing
>End Sub
Odeslání celého sešitu - kód 2
ActiveWorkbook.SendMail Recipients:=Range("A1").Text, Subject:=Range("A3:I3).Text, ReturnReceipt:=False
'Recipient:=Range("A1") - v buňce A1 je kontakt, komu to posílám (musí tam být mailová adresa)