Aktív témák

• #227 matekmatika tag lapa #224

  2006-04-06 07:24:34 #227

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  matekmatika

  tag

  válasz lapa #224 üzenetére

  Szia! Ehhez mit szólsz?:
  
  Private Sub CommandButton1_Click()
  Dim objNameSpace
  Dim objOutlookApp
  Dim objItem
  
  Set objOutlookApp = CreateObject(''Outlook.Application'')
  Set objNameSpace = objOutlookApp.GetNameSpace(''MAPI'')
  Set objItem = objOutlookApp.CreateItem(0) 'MailItem
  objItem.To = ''cím@freemail.hu''
  objItem.Attachments.Add ''C:\Windows\Asztal\proba.txt'', 1, , _
  ''Próba fájl''
  objItem.Subject = ''Próba fájl''
  objItem.Display
  objItem.Send
  
  End Sub
  
  Ezt találtam, azaz majdnem ezt, volt az eredetiben több hiba is. Ez excelből tökéletesen működik, még win98 alatt is . Viszont lenne egy kérdésem. Az End Sub előtt még volt egy ilyen: ''Wscript.Quit''. Ennél hibajelzéssel leállt. Ezt kivettem így jó. Szükséges hogy az benne legyen? Ha nem akkor jó, de ha igen, akkor miként kellene átalakítani ezt az utasítást hogy jó legyen? Lehet ebben is csak valami elírás van.
  Köszi.

Aktív témák