Aktív témák

• #277 matekmatika tag szabi244 #275

  2006-05-08 18:14:21 #277

  Ö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 szabi244 #275 üzenetére

  Igen.
  ''Dim objNameSpace
  Dim objOutlookApp
  Dim objItem
  Dim cim As String
  Dim masolat As String
  cim = cím@xx.hu
  masolat = másolat@xx.hu
  Set objOutlookApp = CreateObject(''Outlook.Application'')
  Set objNameSpace =objOutlookApp.GetNameSpace(''MAPI'')
  Set objItem = objOutlookApp.CreateItem(0) 'MailItem
  objItem.To = cim
  objItem.Cc = masolat
  objItem.Attachments.Add ''C:\elérési útvonal\fájlamitküldeniakarsz.kiterjesztés'', 1, ,''megjegyzés''
  objItem.Subject = ''tárgy''
  objItem.Display
  objItem.Send
  'Mail From WSH''
  
  Az outlook segítségével.
  
  [Szerkesztve]

Aktív témák