Outlook automation problem

[diddi]

greets all

below is a sub which sends an attachment via Outlook. Its a rip off from Ron Debruin (thx).
All works as expected except that the email is sent to the Outlook outbox, but does not actually get sent unless I open Outlook. How can i send without opening Outlook?
TIA

Sub SendMail(ToRecipient As String, AttachDesc As String)
    Dim OlApp As Object, OlMail As Object

    Set OlApp = CreateObject("Outlook.Application")
    Set OlMail = OlApp.createitem(olmailitem)
    
    With OlMail
        .Recipients.Add ToRecipient
        .Subject = AttachDesc & " from ----"
        .Attachments.Add "D:\RAPDFs\" & AttachDesc
        .Send
    End With
    
    Set OlMail = Nothing
    Set OlApp = Nothing
End Sub

 

[tweedle]

check out...

OlApp.Session.Accounts.Session.Logon (Parms)
OlApp.Session.SendAndReceive (False)

B4 your set to nothings.

 

[Michael M]

Hi Pete
I use this in one of my sheets.....edit to suit

Sub Send_Email()
Dim Email_Subject, Email_Send_From, Email_Body As String, i As Integer
Dim Mail_Object, nameList As String, o As Variant
        Email_Send_From = ""
         For i = 7 To 39
    If Sheets("SHEETNAME").Range("I7").Value <> "" Then
        nameList = nameList & ";" & Sheets("SHEETNAME").Range("I" & i).Value
    End If
Next
        Set Mail_Object = CreateObject("Outlook.Application")
        With Mail_Object.CreateItem(o)
            .Subject = "SUBJECT TEXT "
            .To = nameList
            .Body = "BODY TEXT
            .Attachments.Add "FILEPATH NAME AND EXTENSION" 'ActiveWorkbook.FullName
            .Send
End With
        MsgBox "E-mail successfully sent", 64
        Application.DisplayAlerts = False
End Sub

 

[diddi]

@tweedle
much googling turns up that everyone has the same problem and without using "redemption" which doesnt work all the time anyway, it cant be done with this method

@MM
ill give it a whirl now

thx

 

[diddi]

@MM
does this work without having outlook open?

 

[Michael M]

Yep.

 

[diddi]

no luck with MM code.
still gets stuck in outlook outbox.

using outlook 2003/excel 2003 XP pro SP3

might have to try it a different way...

@MM new emails

 

[Michael M]

How odd
I see nothing...I click my button on the spreadsheet for this code...and it's done .
Then the message popup..."Message sent"
It's not stopping at the attachment part is it ?

 

[diddi]

no, but have you got outlook minimised in your tray? it is running if its in the tray. i have outlook express as default client, so outlook is not running at all.

 

[Michael M]

No, I'm not minimised...it was closed.
But I'm not using Express, so that could be the issue.