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

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

  • #3077 Lokids addikt
    Új Válasz #3077
    Ú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
    Privát üzenet küldése

    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