Pozdravljeni!
Priloženi makro mi deluje v redu, vendar bi potreboval, da mi vstavi še celoten zvezek (v katerem se makro nahaja) kot prilogo
LP in hvala
Private Sub CommandButton1_Click()
Dim olApp As Object, olMail As Object
Set olApp = CreateObject("Outlook.Application")
Set olMail = olApp.CreateItem(0)
olMail.To = "kr.neki@gmail.com"
olMail.Subject = Range("B1")
olMail.Body = Range("A1") & " " & Range("B1")
olMail.Display
End Sub
'
' www.matjazev.net
' 29.01.2009
'
Sub PosljiMe(komu As String, naslov As String)
ActiveWorkbook.SendMail Recipients:=komu, Subject:=naslov
End Sub
Sub Test()
PosljiMe "nekdo@neznano.kje", "To je pošta iz Excela"
End Sub