Use Outloook to send email with specified "From" address

[mikephillips]

Thanks to Andrew P I can send emails successfully using his code

Code: Select all

Sub UseOutlook( )
  Dim oOLEService
  Dim oOutlookApp
  Dim oOutlookMail

  oOLEService = createUnoService("com.sun.star.bridge.OleObjectFactory")
  oOutlookApp = oOLEService.createInstance("Outlook.Application")
  oOutlookMail = oOutlookApp.CreateItem(0)

  REM I can directly set the recipients by setting the To property
  oOutlookMail.To = "andrew@pitonyak.org"

  REM I can also add to the list, but in my experiments, this access the
  REM mail box so Outlook asks me if I can do this. In other words, it then
  REM requires user interaction. I can probably set the security in outlook
  REM to simply allow this, but then I have opened things for virus activity.
  'oOutlookMail.Recipients.Add("andrew@pitonyak.org")
  
  oOutlookMail.Subject = "Test Subject"
  oOutlookMail.Body = "This is my body text for the email message"

  REM You can also add attachements to the message
  'oOutlookMail.Attachments.Add("C:\foo.txt")

  REM I can display and edit the message
  'oOutlookMail.Display()

  REM Or I can send the message
  'oOutlookMail.send()
End Sub

My query is can I change the 'sending' address? "oOutlookMail.From" does not work?

Edit: Changed subject, was Using Outlook to send emails  Make your post understandable by others  -- MrProgrammer, forum moderator

[karolus]

there is NO NEED to teach YOU how to fake Email-addresses

[detroitlibertyp]

There is NO NEED to be Rude.
If you don't want to help just don't answer.

[Zizi64]

Use a real email client software, like the Thunderbird. You can control it through the LO API.

[mikephillips]

Well! Hopefully the men in white coats will be along soon for 'karolus' (if I even understood the rubbish...).

detroit/zizi thanks. Problem is I do not want to change the default email programme. I take it no-one knows how to write the construct for the 'send' address on this?

[robleyd]

I take it no-one knows how to write the construct

It is quite possible that someone does know; as it is only a couple of hours since you posted, you might allow a little time for further responses.

[mikephillips]

I took the answer from Zizi who is a resident expert to be the final answer, 'cos if he doesn't know.....................!

[karolus]

(if I even understood the rubbish...).

Oh sorry then I guess I overestimated your intelligence!

[Zizi64]

Problem is I do not want to change the default email programme.

The OpenOffice worked fine for me with the old MS Outlook Express software (that was not same nor even similar as the Outlook). Because it was a real email client software (supports the MAPI).

The LibreOffice works fine with the ThunderBird because that is a real email client software too. (I can send you macro examples for it)

I just tried (I am not using now) an another free alternative email client (I not remember the name), and it worked, because it was a real email client software.


Just search in the Forums: You will see that the OutLook - AOO/LO pair is a more problamatic way.

[mikephillips]

Just search in the Forums: You will see that the OutLook - AOO/LO pair is a more problamatic way.

Take it from me - I don't need to search the forums' to find that out.................

[Villeroy]

viewtopic.php?t=90298

[detroitlibertyp]

detroit/zizi thanks. Problem is I do not want to change the default email programme. I take it no-one knows how to write the construct for the 'send' address on this?

It's certainly your right, though I do wonder why someone who is smart enough to use OpenOffice why they wouldn't similarly want to use a Free Software email client like Thunderbird.

Then again I say that as someone who has in his siganture that he's using Windows, because it's required by my employer and the only reason I'm using the old and busted portable version of x-openOffice is that for some reason it doesn't throw off the IT security stuff, while newer versions, including anything of LO does.

[detroitlibertyp]

viewtopic.php?t=90298

Villeroy, this looks awesome! Do you know if it works with current version of Microsoft Outlook? I only ask because OP indicated that the way he had been doing it worked with the earlier version of Outlook Express, which IIUC, is no longer supported.

[mikephillips]

Perhaps time to repeat my initial question in the hope someone might know.

My query is can I change the 'sending' address? "oOutlookMail.From" does not work?

This forum is 'amazing'. Even ignoring the 'problem child', we have gone from a simple question to Python and heaven knows where else. I have to assume that there is no way to set up a chosen 'From' address in Andrew's script.

[Villeroy]

viewtopic.php?t=90298

Villeroy, this looks awesome! Do you know if it works with current version of Microsoft Outlook? I only ask because OP indicated that the way he had been doing it worked with the earlier version of Outlook Express, which IIUC, is no longer supported.

This is a tiny macro which sends email pulling the addresses, subjects and mail bodies from a spreadsheet. It works without any Outlook, even on non-Windows PCs.

[karolus]

]
This is a tiny macro which sends email pulling the addresses, subjects and mail bodies from a spreadsheet. It works without any Outlook, even on non-Windows PCs.

…But unfortunately it takes 10 minutes to read the instructions, fill in the mail providers login data ( !!! including a valid sender address !!!) ect.

So it is not suitable for @OP and @detroidlibertyp