Mail in Excel

Status
Niet open voor verdere reacties.
P

pkuipers

Gebruiker
Lid geworden
8 jul 2014
Berichten
97
Hallo,
ik heb denk ik alle mogelijkheden geprobeerd maar kom niet verder. Ik krijg steeds een foutmelding als ik een mail wil sturen met behulp van vba.
Zie bijlage.2021-11-11.png

Wie kan mij verder helpen?
Ik heb bij "Extra" "Verwijzingen" Microsoft Outlook 16.0 Object Library aangevinkt. Toch loopt hij vast op: Set newmail = Email.CreateItem(olMailItem)

Groetjes,

Peter
 
De melding gaat over het Outlook profiel, niet over je code, die overigens ook een stuk netter kan:
Code: 
Private Sub cmbEmail_Click()
    Dim Email As Outlook.Application
    Dim NewMail As Outlook.mailitem
    
    Set Email = New Outlook.Application
    Set NewMail = Email.CreateItem(olmailitem)
    
    With NewMail
        .To = "peter.kuipers25@gmail.com"
        .CC = "peter.kuipers25@gmail.com"
        .Subject = "This is an automated Email"
        .HTMLBody = "Hi,<br><br>This is a test email from Excel<br><br><br>" & _
        "Regards,<br>" & _
        "VBA Coder"
        .Attachments.Add ThisWorkbook.FullName
        .Display
    End With
End Sub
 
Zonder overbodige objectvariabelen:

Code: 
Private Sub cmbEmail_Click()
  With createobject("Outlook.Application").createitem(0)
    .To = "peter.kuipers25@gmail.com"
    .CC = "peter.kuipers25@gmail.com"
    .Subject = "This is an automated Email"
    .HTMLBody = "Hi,<br><br>This is a test email from Excel<br><br><br>Regards,<br>VBA Coder"
    .Attachments.Add ThisWorkbook.FullName
    .Send
  End With
End Sub
 
Heren,
bedankt voor de reacties. Heb de verbeteringen van edmoor en snb direct gebruikt.
edmoor jij had volkomen gelijk: outlook stond wel op mijn computer maar niet als standaard.

Nogmaals bedankt voor de snelle reacties.

Groetjes,

Peter
 
Gebruik altijd 'late binding' : createobject("Outlook.Application"); dan is uitwisseling met andere officeversies geen probleem.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan