VisualBasic 6 - Odeslání emalu

Example poslani Emailu v Visual Basic 6. Funguje i jenom jako VBS skript.

Ukázka jak odeslat email

Example odeslání emailu:

Function SendByEmail(sFileName, sAddress)
      Dim sFunction
      sFunction = "SendByEmail()"
      Dim oEmail
      Set oEmail = CreateObject("CDO.Message")
      oEmail.From = "Muj email" 's_G_Mail_SenderAddress 'adresa odesilatele
      oEmail.To = sAddress 'email komu
      oEmail.Subject = "Test" 'nadpis emailu
      oEmail.Textbody = "Elektronické DL"
          oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
      oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "al-smtp1.pns.cz"
      oEmail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
      oEmail.Configuration.Fields.Update
      oEmail.DSNOptions = i_G_Mail_DSNOptions
      oEmail.AddAttachment sFileName 'pridavani priloh
      oEmail.Send
      If Err.Number <> 0 Then
          SendByEmail = "CHYBA - (" & Err.NumberNumber & " - " & Err.Description & ")"
          MsgBox "Cannot send e-mail.", sFunction
      End If
  End Function

11.07.2008 - Mlok -