Hozzászólás: Excelfájlt makróval Thunderbirdbe küldeni E-mailt

Köszönöm, ezt már próbáltam, de azt mondja, a Send-et nem engedi.(Rutime error ‘-214722 960 (80040220)
A „SendUsing”konfigurációs érték érvénytelen.

Ez a kód maga (nyílván to és from kitöltve), persze sok mindent nem értek belőle 🙂

Sub CDO_Mail_Small_Text()
Dim iMsg As Object
Dim iConf As Object
Dim strbody As String
‘ Dim Flds As Variant

Set iMsg = CreateObject(„CDO.Message”)
Set iConf = CreateObject(„CDO.Configuration”)

‘ iConf.Load -1 ‘ CDO Source Defaults
‘ Set Flds = iConf.Fields
‘ With Flds
‘ .Item(„http://schemas.microsoft.com/cdo/configuration/sendusing”) = 2
‘ .Item(„http://schemas.microsoft.com/cdo/configuration/smtpserver”) _
‘ = „Fill in your SMTP server here”
‘ .Item(„http://schemas.microsoft.com/cdo/configuration/smtpserverport”) = 25
‘ .Update
‘ End With

strbody = „Hi there” & vbNewLine & vbNewLine & _
„This is line 1” & vbNewLine & _
„This is line 2” & vbNewLine & _
„This is line 3” & vbNewLine & _
„This is line 4”

With iMsg
Set .Configuration = iConf
.To = „@.hu”
.CC = „”

.BCC = „”
.From = „@.hu”
.Subject = „New figures”
.TextBody = strbody
.Send

End With

End Sub