Aktív témák

• #220 matekmatika tag lapa #219

  2006-04-03 17:26:17 #220

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

  Ilyet találtam, ami tetszik is mert értem , de mégse jó mert az utolsó előtti utasításnál hibaüzenettel leáll.
  Dim ObjSendMail
  Set ObjSendMail = CreateObject(''CDO.Message'')
  ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/sendusing'') = 1
  ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/smtpserver'') = ''mail.pr.hu''
  ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/smtpserverport'') = 25
  ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/smtpusessl'') = False 'Use SSL for the connection (True or False)
  ObjSendMail.Configuration.Fields.Item(''http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout'') = 60
  ObjSendMail.Configuration.Fields.Update
  ObjSendMail.To = ''kinek@pr.hu''
  ObjSendMail.Subject = ''Proba''
  ObjSendMail.From = ''kitől@freemail.hu''
  ObjSendMail.TextBody = ''Tartalom''
  ObjSendMail.Send
  Set ObjSendMail = Nothing
  
  A hibaüzenet pedig: ''Run-time error '-2H7220958 (80040222)':
  A felvételi könyvtár elérési útvonalának megadása kötelező,de jelenleg nincs meghatározva.''
  Hogy határozzam meg? Főleg hogy nem is mentett fájlt akarok küldeni, hanem aktív munkalapot.
  
  
  Mivel nem látszik a teljes kód ezért: [link]
  
  [Szerkesztve]

Aktív témák