M365 Outlookmail verzenden vanuit Access

Status
Niet open voor verdere reacties.
@edmoor: Bedankt voor de morele steun. Wordt gewaardeerd :thumb:. De grap is: ik heb gisteren een voeding bij megekko besteld (een be quiet Dark Power 12 1000W) die, op het moment van bestellen, vandaag geleverd zou worden. Kreeg ik dus gisteravond een mailtje dat het 20 januari wordt.... En het ding is dus nérgens anders (meer) leverbaar, overal uitverkocht. En ik móet deze hebben :(.
 
Helaas dus.
Nou ja, niet geschoten is altijd mis.
 
test1000

Probeer dit eens.

Code: 
Dim PlApp As Object
Dim PlMail As Object
Dim MMail As String
MMail = Me.MemoVeld
Set PlApp = CreateObject("Outlook.Application")
Set PlMail = PlApp.CreateItem(0)
With PlMail
    .To = "xxxxxxxxx"
    .Subject = "Voorstel"
    .HTMLBody = "<html><body>" & MMail & "</body></html>"
    .Send 'of display
End With
Set PlMail = Nothing
Set PlApp = Nothing

Groetjes,
 
Onderstaande werkt.
Maw ik kan M365 mails versturen zonder telkens op 'Toestaan' te klikken.
Of dit de methode is weet ik niet. Maar ze werkt :D
Probleem is dat je uw M365 moet invullen. Om vb wachtwoord 'hardcoded' in code in te vullen is geen optie.
Dus ik weet niet of er een methode is om M365 mails te versturen zonder M365 credentials in te vullen.
De mailadressen .to en .from haal ik uit andere tabellen.
Dus ik ben eigenlijk op zoek naar code zonder M365 credentials in te geven.

Code: 
Private Sub Knop0_Click()
'Sub Office365_Email_Test()
    Dim objMessage, objConfig, fields
    Dim AddAttachment
    Const adTypeBinary = 1
    Const adTypeText = 2
    Set objMessage = New CDO.Message
    Set objConfig = New CDO.Configuration
    Set fields = objConfig.fields
    With fields
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.office365.com"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1
       'M365 credentials
        .Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "xxx.xxx@xxx.xxx"
        .Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "xxxxxxxxxx"
        .Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
        .Update
    End With
    Set objMessage.Configuration = objConfig
    
    With objMessage
        .Subject = "Onderwerp"
        .From = "xxx.xxx@xxx.xxx"
        .To = "xxx.xxx@xxx.xxx"
        objMessage.HTMLBody = "Body Message"
        .BodyPart.Charset = "utf-8"
        .HTMLBodyPart.Charset = "utf-8"
        .AddAttachment "c:\out.txt"
    End With
    objMessage.Send
End Sub
 
Laatst bewerkt:
Nee, dat kan niet met CDO.
Zet een wachtwoord op je VBA project.
 
edmoor zei:
Helaas dus. Nou ja, niet geschoten is altijd mis.
Klik om te vergroten...
Gek genoeg kreeg ik eergisteren een mailtje dat-ie gisteren bezorgd zou worden; blijkbaar hebben ze er tóch nog een uit een verre hoek opgedoken :). Dus ik kan toch op korte termijn weer aan de slag, hoop ik :d.
 
Ok dan.
Kan je straks met frisse power het nieuwe jaar in :D
 
Laatst bewerkt:
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan