Jeigu yra būdas padaryti geriau, atrask jį. T. A. Edison

Sveiki, Svečias
Prisijungimo vardas: Slaptažodis: Prisiminti mane
  • Puslapis:
  • 1

TEMA: email funkcija

email funkcija prieš 4 m. 8 mėn. #1

  • ZygD
  • ZygD avataras
  • Neprisijungęs
  • Auksinis narys
  • Žinutės: 197
  • Gauta padėka 60
  • Reputacija: 20
works like a breeze...
Option Explicit
 
Sub Sends()
  Call SendMail("subject", "message", "sender@xxx.xxx", "slaptazodis", "receiver@xxx.xxx", "smtp.gmail.com", "25")
End Sub
 
Function SendMail(Subject As String, Message As String, Sender As String, _
    Password As String, Reciever As String, mailserver As String, _
    portnum As String, Optional AttachFile As String) As Boolean
 
If Sender <> "" Or Password <> "" Then
    Dim iMsg, iConf, Flds, schema, SendEmail
    Set iMsg = CreateObject("CDO.Message")
    Set iConf = CreateObject("CDO.Configuration")
    Set Flds = iConf.Fields
 
    ' send one copy with SMTP server (with autentication)
    schema = "http://schemas.microsoft.com/cdo/configuration/"
    Flds.Item(schema & "sendusing") = 2 'cdoSendUsingPort
    Flds.Item(schema & "smtpserver") = mailserver
    Flds.Item(schema & "smtpserverport") = portnum
    Flds.Item(schema & "smtpauthenticate") = 1 'cdoBasic
    Flds.Item(schema & "sendusername") = Sender
    Flds.Item(schema & "sendpassword") = Password
    Flds.Item(schema & "smtpusessl") = 1 'True
    Flds.Update
 
    With iMsg
        DoEvents
        .To = Reciever
        .From = Sender
        .Subject = Subject
        .HTMLBody = Message
        .Sender = Sender
        .ReplyTo = Sender
        If AttachFile <> "" Then
            .AddAttachment (AttachFile)
        End If
        Set .Configuration = iConf
        SendEmail = .send
    End With
 
    Set iMsg = Nothing
    Set iConf = Nothing
    Set Flds = Nothing
    SendMail = True
Else
    MsgBox "Please, fill in ALL the required info!", vbCritical, "Info not provided"
    SendMail = False
End If
End Function

Port 25 ir SMTP serveris "smtp.gmail.com" nustatyti siųsti žinutes iš Gmail.
Administratorius uždraudė viešą pranešimų rašymą.

email funkcija prieš 4 m. 8 mėn. #2

  • dll
  • dll avataras
  • Neprisijungęs
  • Moderatorius
  • Žinutės: 194
  • Gauta padėka 47
  • Reputacija: 20
Ačiū, reikės išbandyti, kol kas naudojausi tik Outlook ir Lotus Notes :) Ten viskas atrodė paprasčiau.
Administratorius uždraudė viešą pranešimų rašymą.
  • Puslapis:
  • 1
Moderatoriai: bankeris
Puslapio sukūrimo laikas: 0.301 sekundžių