VBA mail via Outlook online version (OWA)

Det er kun Gmail versionen, som er baseret på en Online version.
Og når jeg tester den, så får jeg en memory fejl ??? uanset hvordan jeg opsætter mailen.

Rondebruin.nl er baseret på eget mail program (i det Link du henviser til). Den har jeg testet, og den virker uden problemer.

Det siger dog øverst:
The code on this page is working with all Microsoft mail programs.

Så den burde jo.....

#2 - Der mangler jo al info om SMTP, Port Nr. og andet i versionen fra Rundebruin, for at kunne være på Online versionen!

Hm, okay - så er jeg lidt på den. Har du mere held med lidt Googling for at finde noget der kunne virke?

#4 - Funktionen du eftersøger, er jo egentlig i Linket til Gmail versionen, da der netop defineres det som skal bruges for at komme på en konto! Det er også det som Microsoft refererer til, når de guider til email opsætning Online!
Men som skrevet tidligere, så får jeg en Memory fejl, når jeg opsætter koden, til at tilgå en mail konto!

Har testet denne kode, og den virker. Så hvis du tilretter den med dine Microsoft SMTP oplysninger, samt Port nummer, mail adresse og password, burde den også virke hos dig, med OWA Outlook.

Sub SendEmailUsingGmail()

    On Error GoTo Err

    Dim NewMail As Object
    Dim mailConfig As Object
    Dim fields As Variant
    Dim msConfigURL As String

    Set NewMail = CreateObject("CDO.Message")
    Set mailConfig = CreateObject("CDO.Configuration")

    ' load all default configurations
    mailConfig.Load -1

    Set fields = mailConfig.fields

'Set All Email Properties

    With NewMail
        .Subject = "Test Mail"
        .From = "xxxxx@xxx.com"
        .To = "xxxxx@xxx.com"
        .CC = ""
        .BCC = ""
        .textbody = ""
    End With

    msConfigURL = "http://schemas.microsoft.com/cdo/configuration"

    With fields
        'Enable SSL Authentication
        .Item(msConfigURL & "/smtpusessl") = True

        'Make SMTP authentication Enabled=true (1)
        .Item(msConfigURL & "/smtpauthenticate") = 1

        'Set the SMTP server and port Details
        'To get these details you can get on Settings Page of your Gmail Account
        .Item(msConfigURL & "/smtpserver") = "smtp.gmail.com"
        .Item(msConfigURL & "/smtpserverport") = 587
        .Item(msConfigURL & "/sendusing") = 2

        'Set your credentials of your Gmail Account
        .Item(msConfigURL & "/sendusername") = "xxxxxxx@gmail.com"
        .Item(msConfigURL & "/sendpassword") = "*******"

        'Update the configuration fields
        .Update

    End With
    NewMail.Configuration = mailConfig
    NewMail.Send
    MsgBox ("Mail has been Sent")

Exit_Err:

    Set NewMail = Nothing
    Set mailConfig = Nothing
    End

Err:
    Select Case Err.Number

    Case -2147220973  'Could be because of Internet Connection
        MsgBox " Could be no Internet Connection !!  -- " & Err.Description

    Case -2147220975  'Incorrect credentials User ID or password
        MsgBox "Incorrect Credentials !!  -- " & Err.Description

    Case Else  'Rest other errors
        MsgBox "Error occured while sending the email !!  -- " & Err.Description
    End Select
    Resume Exit_Err
End Sub

I tillæg til #6 - Husk at sætte flueben ved Microsoft CDO i VBA

Jeg må gøre noget helt galt, hver gang koden når til .subject så går den i fejl. Jeg prøvede forskellige smtp porte (ud fra hvad jeg læste på nettet), men samme fejl igen og igen.

Jeg må også indrømme at jeg ikke forstår hvordan den skaber en ny mail, når det er Onlineversionen af mailen.

#8 - Da jeg testede den, indtastede jeg blot de felter som nu var aktuelle "Subject", "From", "To" o.s.v., og så SMTP, brugernavn og password.
Mailen blir' jo skabt, når du er indlogget på din konto, gennem dine SMTP og bruger informationer (Navn og password).

Huskede du at gøre CDO aktiv i din VBA indstilling?

Ja, det flueben er sat. Jeg har også blot kørt med at fjerne dem, eller lade den stå med "test" etc

Det er måske noget med at min instans af Outlook365 ikke tilader det? Kan man undersøge det når man selv logger ind som alm bruger?

#10 - Svar skyldig, til det sidste i dit indlæg. Jeg har ikke selv testet mod Outlook, men mod Google, og uden problemer.
Men umiddelbart, så lyder det mærkeligt, at du ikke kan komme længere i din kode, end til .Subject
Vil  det sige, at du ikke på noget tidspunkt har været indlogget gennem dine SMTP, brugernavn og password opsætninger?

Jeg flyttede rundt på subjekt delen og login og den løber fint igennem login.

Men hvordan kan jeg ellers se jeg er indlogget?

#12 - Jeg kunne kun se på Gmail, ved at min konto var aktiv. Hvordan det er på Outlook, må jeg blive svar skyldig. Men jeg går ud fra, at det er tilsvarende på Outlook.
Hele VBA koden, er jo tænkt som en funktion fra Excel, til at bruge Outlook, som OWA.

Din konto var aktiv - hvordan mener du? Måske jeg ikke forstår OWA?

#14 - Det jeg mener med aktiv, er at når koden er gennemløbet, så åbner den op for min mail konto hos Gmail, og derved er jeg automatisk indlogget på min mail. Så jeg skal ikke aktivere min normale adgang til Google Gmail, men "hopper" direkte ind i mail systemet.

Okay, det sker ikke for mig. Den hopper slet ikke i browser eller noget.