E-pošta

Pomoč pri izdelavi makrov
Odgovori
BJ
Prispevkov: 170
Pridružen: Sr Okt 26, 2005 5:46 pm

E-pošta

Odgovor Napisal/-a BJ »

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

Koda: Izberi vse

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
admin
Site Admin
Prispevkov: 3687
Pridružen: Sr Jul 20, 2005 10:06 pm

Odgovor Napisal/-a admin »

Za pošiljanje celotnega delovnega zvezka lahko uporabite kar njegovo lastno metodo SendMail:

Koda: Izberi vse

'
' 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
lp,
Matjaž Prtenjak
Administrator
Odgovori