Here's a working test, just add in the yahoo account id and password where needed...
Option Explicit

Sub Test()
    Dim Attachment As String
    Dim MsgBody As String
    
    Attachment = "C:\Temp\test.txt"
    MsgBody = "<HTML><BODY><P>Hello world.<P></BODY></HTML>"
    SendEmail "from_email@yahoo.com", "to_email@anyplace.net", "", "Test email subject", MsgBody, Attachment
End Sub


Sub SendEmail(FromEmail As String, ToEmail As String, BccEmail As String, Subject As String, Body As String, Attachment As String)
    Const SmtpUser = "yahoo_account_id"     '<===== MAKE CHANGES HERE
    Const SmtpPassword = "yahoo_account_password"     '<===== MAKE CHANGES HERE
    Const SmtpServer = "smtp.mail.yahoo.com"
    Const SmtpPort = 465

    ' CDO Constants needed to send email
    Const CdoSendUsingPickup = 1   'Send message using the local SMTP service pickup directory.
    Const CdoSendUsingPort = 2     'Send the message using the network (SMTP over the network).
    Const CdoAnonymous = 0         'Do not authenticate
    Const CdoBasic = 1             'basic (clear-text) authentication
    Const CdoNTLM = 2              'NTLM
    Const CdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing"
    Const CdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver"
    Const CdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
    Const CdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
    Const CdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
    Const CdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername"
    Const CdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword"
    Const CdoSmtpUseSsl = "http://schemas.microsoft.com/cdo/configuration/smtpusessl"
    
    ' Local variables
    Dim ObjConfig As Object
    Dim ObjMessage As Object

    ' Get a handle to the config object and it's fields
    Set ObjConfig = CreateObject("CDO.Configuration")

    ' Set config fields we care about
    With ObjConfig.Fields
        .Item(CdoSendUsingMethod) = CdoSendUsingPort
        .Item(CdoSMTPServer) = SmtpServer
        .Item(CdoSMTPServerPort) = SmtpPort
        .Item(CdoSMTPConnectionTimeout) = 60
        .Item(CdoSMTPAuthenticate) = CdoBasic
        .Item(CdoSendUserName) = SmtpUser
        .Item(CdoSendPassword) = SmtpPassword
        .Item(CdoSmtpUseSsl) = True
        .Update
    End With

    ' Create a new message
    Set ObjMessage = CreateObject("CDO.Message")
    Set ObjMessage.Configuration = ObjConfig

    ' Populate message fields and send it
    With ObjMessage
        .To = ToEmail
        .From = FromEmail
        .BCC = BccEmail
        .Subject = Subject
        .AutoGenerateTextBody = True
        .HtmlBody = Body
        If Attachment <> "" Then
            .AddAttachment Attachment
        End If
        .Send
    End With
End Sub
»bp
Send email via Yahoo mail
