..|| Blog || Produkti/Storitve || MExcel || MDodatki || 300 nasvetov ||..

E-pošta

Pomoč pri izdelavi makrov

E-pošta

OdgovorNapisal/-a BJ » Pe jan 29, 2010 11:40 am

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
BJ
 
Prispevkov: 154
Pridružen: Sr okt 26, 2005 5:46 pm



Matjazev.NET
 

OdgovorNapisal/-a admin » Pe jan 29, 2010 12:39 pm

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


Vrni se na VBA

Kdo je prisoten

Po forumu brska: 0 registriranih uporabnikov in 1 gost

cron