Emailen vanuit je applicatie

[harolda1980]

Ja dat kan... Alleen de vraag is staat dat professioneel! Kun je dit ook makkelijk maken dat je op de server van je bedrijf kunt inloggen? Of zijn de instellingen zo verschillend..

 

[harolda1980]

Om met iedereen te delen een andere variant om met e-mail te werken vanuit je applicatie hier de variant met CDO. Hiermee geef ik dus een email adres mee die niet bestaat binnen de email server. en dien je alleen een SMTP server te hebben.

        Dim iMsg As Object
        Dim iConf As Object
        Dim strbody As String
        Dim Flds As Object
        Dim var As String


        Dim StringTo As String
        'On Error GoTo Errorhandler



        iMsg = CreateObject("CDO.Message")
        iConf = CreateObject("CDO.Configuration")
        iConf.Load(-1)    ' CDO Source Defaults
        Flds = iConf.Fields
        With Flds
            .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "Email.test.nl" 'VUL HIER JE SERVER IN
            .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
            .Update()
        End With

        strbody = "Beste collega, de vestiging en de betreffende medewerker." & vbNewLine & vbNewLine & vbNewLine & _
                    "<<Dit is een automatisch gegeneeerde email en derhalve niet ondertekend!>>"
        Debug.Print(strbody)
        With iMsg
            .Configuration = iConf
            .to = "test@test.nl" 'Emailstring toevoegen
            .CC = ""
            .BCC = ""
            .FROM = """Eventkalender"" <nietantwoorden@test.nl>"
            .Subject = "Eventkalender bevestiging " 'Zet hier het subject
            .TextBody = strbody
            '        .attachments.Add 'Bijlage Toevoegen
            .Fields("urn:schemas:httpmail:importance") = 2
            .Fields("urn:schemas:mailheader:X-Priority") = 1
            .Send()
        End With
        iMsg = Nothing
        iConf = Nothing


Errorhandler:

        iMsg = Nothing
        iConf = Nothing

    End Sub

 

[JoZ1]

Dus de vraag is opgelost?