Hirdetés

  2. Fórumok
  3. Szoftverfejlesztés
  4. Visual Basic

Új hozzászólás Aktív témák

  • Lokids Lokids addikt
    #3077
    Új Válasz
    Új hozzászólás
    Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra
    Lokids
    Lokids
    addikt

    Sziasztok!

    Próbálok CDO-val emailt küldeni, de valahogy nem akar működni.
    Mi lehet a gond?

    Sub Send_Result_MailSMTP( _
    ByRef p_FullName As String, _
    ByRef p_Dat As String)

    Dim cdoMail As Object
    Dim cdoConf As Object

    Dim Wb1 As Workbook
    Dim FilePath As String
    Dim TempFileName As String
    Dim FileExtStr As String
    Dim Flds As Variant

    Set Wb1 = ActiveWorkbook


    FilePath = "C:\Temp\"
    Filename = p_FullName

    Workbooks(OutputMon_F_Name).SaveAs Filename:=FilePath & Filename

    Set cdoMail = CreateObject("CDO.Message")
    Set cdoConf = CreateObject("CDO.Configuration")

    Set Flds = cdoConf.Fields
    With Flds
    .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = webmail.mycompany.local
    .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
    '.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
    '.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "username"
    '.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
    '.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = 1
    End With


    On Error Resume Next
    With cdoMail

    .From = "myname@email.hu"
    .To = "myname@email.hu"
    '.CC = SendMail_CC
    .Subject = "Monitoring - " & p_Dat
    .HtmlBody = "<!DOCTYPE html><html><body><p style=""font-family:'Lucida Consolas', monospace""><pre>" & _
    "A mellékelt táblázat a Sharepoint felületen rögzített Monitoring feladatok alapján készült.<br><br></body> </html>"

    .AddAttachments FilePath & Filename
    .Send
    End With

    Set cdoMail = Nothing
    Set cdoConf = Nothing
    Set Flds = Nothing
    End Sub

Új hozzászólás Aktív témák