Excel VBA to compose an email in Outlook

[MisterProzilla]

Hi there,

This one's probably as basic as it gets for some users, but I've tried a bunch of how-to guides and can't get it working.

Please see code below; the comment lines should explain what I'm trying to do. The problem is it's coming up with an error "Compile error: Assignment to constant not permitted" and it's highlighting the 'olMail' text that I've put in bold below. No idea what that means, unfortunately

Any help appreciated!

Sub Remind_Manager()

' Button to email reminder of upcoming review meeting
' Administrator clicks in the staff's row, then clicks button to send a reminder
' column L contains the line manager's name, retrieved by a VLOOKUP

strEmailTo = "L" & ActiveCell.Row


Set olApp = New Outlook.Application
Dim olNs As Outlook.Namespace
Set olNs = olApp.GetNamespace("MAPI")
olNs.Logon
Set [B]olMail[/B] = olApp.CreateItem(olMailItem)
olMail.To = strEmailTo


olMail.Subject = "Test"
olMail.Body = vbCrLf & "Hi, this is a test" & strEmailTo & vbCrLf & vbCrLf & "Regards"

'
End Sub

 

[igold]

Hi

I have used this routine successfully in many different codes. See if you can adapt it to your situation. This code will work even if Outlook is closed, however i do not need to enter a password to open Outlook.

Sub eml()


    Dim objOutlook As Object
    Dim objMail As Object


    Set objOutlook = CreateObject("Outlook.Application")
    Set objMail = objOutlook.CreateItem(0)


    With objMail
        .to = Range("B3").Value
        .cc = Range("C3").Value
        .bcc = Range("D3").Value
        .Subject = "Fund " & MonthName(Month(Date) - 1, False) & " " & Format(Date, "YYYY")
        .Body = Range("D3").Value
        '.Attachments.Add rngAttach.Value
        .Display                   'Instead of .Display, you can use .Send to send the email _
                                         or .Save to save a copy in the drafts folder
    End With


    Set objOutlook = Nothing
    Set objMail = Nothing
    'Set rngTo = Nothing
    'Set rngSubject = Nothing
    'Set rngBody = Nothing
    'Set rngAttach = Nothing


End Sub

HTH

igold