OutlookEX UDF - Help & Support (IV)

[water]

As the OutlookEX UDF - Help & Support thread has grown too big, I'm starting a new one.
The original thread can be found here.

[Skysnake]

thank you for the prompt response.

• You can set the profile to be used when calling function _OL_Open, parameter $sProfileName.

What must this $Profilename look like?

I tried to put in my name like this "*my name" - where corresponds with the "account name" in my Outlook.

Global $oOutlook = _OL_Open(False, "", 1000, 1000, "*my name")

Used the * to guarantee a unique name

Got this error...

Error 10, 0

Extended 1003 , 1

Okay, this is not going to work.  Google shows this

Outlook profile
A profile is what Outlook uses to remember the email accounts established within it and the settings that tell Outlook where your email and other data is stored. A new profile is created automatically when you run Outlook for the first time.

That means that the Profile name and any possible email accounts are not the same thing and there can by multiple email accounts inside a given profile.

This changes the nature of the question.  How to select a specific email address from a profile?

Unsurprisingly my Outlook profile is named "Outlook" - it contains seven email addresses...

Edited October 27, 2017 by Skysnake

[Skysnake]

Any reason why Windows Live Mail would truncate PDF attachments?  Tested with Gmail, Thunderbird and Outlook & Outlook for Exchange.  All these work and receive attachments.  Live appears to hide/truncate the attachment... ?

[water]

Is this problem related to the OutllookEX UDF or do you see it as well when you manually open such a mail?

[Skysnake]

Both

I sent a PDF  using the UDF to multiple recipients.  All confirmed receipt.  One destination reported that "the email had no attachment" - I sent that directly from Outlook (ie not using the UDF) and also did not receive the PDF attachment.

 

[water]

Which mail format do you use? Text, HTML or RTF?

[water]

That's what I found using Google about

Corrupted pdf files:
https://answers.microsoft.com/en-us/windowslive/forum/livemail-program/windows-live-mail-corrupting-pdf-files-when/55728c50-d17d-42a6-ab12-05e6d6918847?auth=1

Blocked PDF files:
https://www.askvg.com/how-to-stop-windows-live-mail-from-blocking-unsupported-file-types-in-attachments/

What Adobe recommends:
https://forums.adobe.com/thread/612521

[Skysnake]

HTML Body, but it contains only one line referring to the PDF attachment (not a link)

[alexandre17]

Hi all,

How to select a signature via your lib ?

My function, but I don't find how to choose signature?

Func Creer_mail($email_destinataire,$sujet,$pj1,$pj2)
   Global $oItem
   Global $oOutlook = _OL_Open()
   If @error <> 0 Then Exit MsgBox(16, "Acacia Dynamic", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

   $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=" & $sujet, "BodyFormat=" & $olFormatHTML)
   If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Example Script", "Error creating a mail in folder 'Outlook-UDF-Test\TargetFolder\Mail'. @error = " & @error & ", @extended = " & @extended)
   ; Add a recipient and resolve it
   _OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $email_destinataire)

   ; Add all attachments
   ;$oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, @ScriptDir & "\The_Outlook.jpg")
   If $pj1<>"" Then
      $oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $pj1)
      If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Example Script", "Error adding an attachment to a mail in folder 'Outlook-UDF-Test\TargetFolder\Mail'. @error = "  & @error & ", @extended = " & @extended)
   EndIf

   If $pj2<>"" Then
      $oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $pj2)
      If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Example Script", "Error adding an attachment to a mail in folder 'Outlook-UDF-Test\TargetFolder\Mail'. @error = "  & @error & ", @extended = " & @extended)
   EndIf


  $oItem.GetInspector
  $sSignature = $oItem.HTMLBody
  $sBody = "Plop<br>Plip"
  $oItem.HTMLBody = $sBody & $sSignature

   $oItem.Display
   MsgBox(64, "OutlookEX UDF: _OL_ItemCreate Example Script", "Mail with inline picture created.")

   MsgBox(64, "OutlookEX UDF: _OL_ItemCreate Example Script", "All items successfully created in 'Outlook-UDF-Test\TargetFolder' and its subfolders!")

   _OL_Close($oOutlook)
EndFunc

 

[water]

Use function _OL_MailSignatureSet before creating the mail item to set the needed signature.
If needed you could grab the current default signatures using _OL_MailSignatureGet, then set the new signature with _OL_MailSignatureSet, create the mail item and then reset the default signature with the values from _OL_MailSignatureGet.

I will check if there is an easier way to add a specific signature.

[alexandre17]

when I try :

Global $aSignatures = _OL_MailSignatureGet()
   If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_MailSignatureGet Example Script", "Error accessing mail signatures. @error = " & @error & ", @extended: " & @extended)
   _ArrayDisplay($aSignatures, "OutlookEX UDF: All email signatures for the current mail account", "", 0, "|", "Name|Used for new messages?|Used for reply messages?")

I have got an error "Error accessing mail signatures. @error = 1, @extended: -2147221005

Idem for _OL_MailSignatureSet

Signature 'Outlook-UDF-Test' could not be set. @error = 1, @extended: -2147221005

Can You help me?

[water]

Is Microsoft Word installed on the computer where you run the script?

[alexandre17]

No I have only outlook 2010

[water]

That causes the error message you see.
Outlook uses MS Word as the editor for Signatures.

[alexandre17]

ok,

I have made a loop create 50 mails with the same function.

Some time I have Error creating mail in folder @error=4,  @extended: -2147221005

And when this error occur I must reboot my pc, and all become ok.

Why ?

My function

Func Creer_mail($oOutlook,$email_destinataire,$sujet,$pj1,$pj2,$chem_modele_html)
   Global $oItem

   $oItem = _OL_ItemCreate($oOutlook, $olMailItem, "", "", "Subject=" & $sujet, "BodyFormat=" & $olFormatHTML)
   If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Example Script", "Error creating a mail in folder 'Outlook-UDF-Test\TargetFolder\Mail'. @error = " & @error & ", @extended = " & @extended)


   ; Add a recipient and resolve it
   If $email_destinataire<>"" Then
   _OL_ItemRecipientAdd($oOutlook, $oItem, Default, $olTo, $email_destinataire)
   EndIf

   ; Add all attachments
   If $pj1<>"" Then
      $oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $pj1)
      If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Example Script", $pj1 & "Error adding an attachment to a mail in folder 'Outlook-UDF-Test\TargetFolder\Mail'. @error = "  & @error & ", @extended = " & @extended)
   EndIf

   If $pj2<>"" Then
      $oItem = _OL_ItemAttachmentAdd($oOutlook, $oItem, Default, $pj2)
      If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OL_ItemCreate Example Script", $pj2 & "Error adding an attachment to a mail in folder 'Outlook-UDF-Test\TargetFolder\Mail'. @error = "  & @error & ", @extended = " & @extended)
   EndIf


  $oItem.GetInspector

  $sBody =  $chem_modele_html
  $oItem.HTMLBody = $sBody

EndFunc

An his call

$oOutlook = _OL_Open()
If @error <> 0 Then Exit MsgBox(16, "AAA", "Error creating a connection to Outlook. @error = " & @error & ", @extended = " & @extended)

$sBody="AA<br>bb"

For $i=0 To 99
    Creer_mail($oOutlook,$i & "a@a.com","Invoide s","C:\Users\vmware\Desktop\exporteur\3 Facturation\2017\201712\201712 - Facturation ddd - Synthese.pdf","C:\Users\vmware\Desktop\exporteur\3 Facturation\2017\201712\201712 - Facturation ddd.pdf",$sBody)
Next
_OL_Close($oOutlook)

 

[water]

That's the same error as in post #17. Do you by any chance call the signature function which needs MS Word?

[water]

The following lines

$oItem.Getspector

  $sBody =  $chem_modele_html
  $oItem.HTMLBody = $sBody

can be written as

;  $oItem.GetinInspector
  $oItem.HTMLBody = $chem_modele_html

I'm not sure GetInspector is needed any longer.

[alexandre17]

No I haven't call signature.

without $oItem.GetInspector the body it's empty

[water]

Version 1.3.2.0 of the UDF has been released.

Please test before using in production!

For download please see my signature.

[water]

My bad
You know there is a typo in your code and your last post? It should be:  $oItem.GetInspector

What happens when you add a Sleep(500) into the loop before sending each mail?