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

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

  • Zalanius Zalanius tag
    #3078
    #3077 Lokids
    Ú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
    Zalanius
    Zalanius
    tag
    #3077 Lokids
    #3077 Lokids

    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

    1-2 ötlet:
    1. mintha nem volna a config hozzárendelve cdoMail objectedhez. Valami ilyesmit hiányolok:

    Set cdoMail.Configuration = cdoConf

    Amúgy és a továbblépéshez:
    - attachment nélkül megy?
    - próbáld ki a .Update beillesztését is még a config blokkjának a végén
    - ugye próba esetén már nem maradnak kommentben az autentikációs sorok

    Végül pedig: mit mond az Err? Lehetne mondjuk egy Goto címkés blokk az onerrornál, amiben érdemes megnézni, hogy mi az Err.Description

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