how to copy one cell at a time from excel sheet and parse the data into outlook mail?

[RonSurn 0]

 

Hello  Water

I just used you wrapper script, 
intend to reade the  
- email address
- email subject
- email body

from the excel  ....

anyway i have some problem, i found that when the email body exceed than 256 character
then the email body will be blank !!!

while the short message the code below are working fine,  

any suggestion ???  Thank you very much 

Regards
Ron

 

#include<excel.au3>
#include <OutlookEX.au3>

;Local $sString = String(10)

$i = 0
While $i <= 2
;   MsgBox(0, "Value of $i is:", $i)
$i = $i + 1

Local $Open_Excel = _Excel_Open()
Local $File_Path = "D:\autoit\email_list.xlsx"
Local $Open_WorkBook = _Excel_BookOpen($Open_Excel,$File_Path)
WinActivate($Open_WorkBook)
Local $Read_Excel_address = _Excel_RangeRead($Open_WorkBook,Default,"A"&$i)
Local $Read_Excel_Subject = _Excel_RangeRead($Open_WorkBook,Default,"B"&$i)
Local $Read_Excel_MailBody = _Excel_RangeRead($Open_WorkBook,Default,"C"&$i)

_Excel_Close($Open_Excel, False)

Global $oOutlook = _OL_Open()
Global $bodyvar = $Read_Excel_MailBody
Global $recipientAddress = $Read_Excel_address
Global $subjectvar = $Read_Excel_Subject
_OL_Wrapper_SendMail($oOutlook, $recipientAddress, "", "", $subjectvar, $bodyvar)
If @error <> 0 Then Exit MsgBox(16, "OutlookEX UDF: _OutlookSendMail Wrapper Script", "Error sending mail. @error = " & @error & ", @extended: " & @extended)

Wend

 

[water 2,163]

According to the help file there is a solution

Quote

The Excel transpose method doesn't support cells with more than 255 characters. Set $bForceFunc = True to bypass this limitation(s).

 

[RonSurn 0]

Water, thank you for shading the light ... appreciated  !!!  

[water 2,163]

[hugomito 0]

On ‎1‎/‎29‎/‎2018 at 5:28 AM, water said:

$bForceFunc = True

Thanks a lot Master.

It solved my issue too.

Regards,

[water 2,163]