- Apple Watch
- Xiaomi 17 Ultra - jó az optikája
- Xiaomi 15T Pro - a téma nincs lezárva
- A Honor profi iPhone másolásban
- Itt a Galaxy S26 széria: az Ultra fejlődött, a másik kettő alig
- Amazfit Active 2 NFC - jó kör
- Mire lesz elég a Z Fold8 extra akkumulátora?
- Hivatalos a OnePlus 13 startdátuma
- Samsung Galaxy A52s 5G - jó S-tehetség
- Xiaomi 17 - még mindig tart
Új hozzászólás Aktív témák
-
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
- BeQuiet! GAMER alap! i9-14900K / Z790 / 32GB 6000MHz / 2TB Gen4 / 1000w Gold! BeszámíTOK
- Telefon felvásárlás!! Samsung Galaxy S21/Samsung Galaxy S21+/Samsung Galaxy S21 Ultra
- Részletre elérhető , BankMentes lehetőség Dell Alienware AW3225QF 31.6 4K QD OLED Gaming Monitor
- AKCIÓ! Dell Vostro 15 3590 FHD notebook - i5 10210U 8GB DDR4 250GB SSD Intel UHD W11
- MacBook Air 13" M4 10cCPU/10cGPU / 16GB / 256 GB - www.stylebolt.hu - Apple eszközök és tartozékok
Állásajánlatok
Cég: Laptopműhely Bt.
Város: Budapest


