moje weby:
Eshop - internetový obchod kde seženete parádní věcičky
www.imlok.net
elektrika (schémata, značky, postupy)
návody na deskové hry
Wordpress
Úvod
Mobil
Pocket PC
PC
Články
Licenční ujednání
Kontakt
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 -
Copyright - MLOK -
Počet návštev: 40877.213