[R] _INetMail() ne fonctionne pas sous Windows 7 x64

[deepfirejet]

Bonjour,

Mon script qui fonctionnait sous Windows XP ne fonctionne plus sous Windows 7. Idem avec le script de l'aide.
Mon client Lotus Notes est bien défini comme client de messagerie par défaut.

Est-ce un problème connu ?

[Tlem]

Avez-vous les bons droits pour utiliser _InetMail() ?

[deepfirejet]

Oui j'ai bien mis la ligne #RequireAdmin dans mon script.

[Tlem]

Je n'ai pas de Seven 64 sous la main, mais voici à quoi correspond le code de la fonction _InetMail().

Code : Tout sélectionner

Func _INetMail($s_MailTo, $s_MailSubject, $s_MailBody)
    Local $prev = Opt("ExpandEnvStrings", 1)
    Local $var = RegRead('HKCR\mailto\shell\open\command', "")
    Local $ret = Run(StringReplace($var, '%1', _INetExplorerCapable('mailto:' & $s_MailTo & '?subject=' & $s_MailSubject & '&body=' & $s_MailBody)))
    Local $nError = @error, $nExtended = @extended
    Opt("ExpandEnvStrings", $prev)
    Return SetError($nError, $nExtended, $ret)
EndFunc   ;==>_INetMail

Regardez si sous Seven 64 la clé de base de registre correspond et éventuellement testez la fonction tel quel pour trouver ce qui ne convient pas.

Peut être est-ce dut tout bonnement à la version de Lotus Note.
Essayez de remplacer le client de messagerie.

[deepfirejet]

Bingo.

La valeur est C:\Program Files\IBM\lotus\notes\notes.exe -defini %1
Il manque donc (x86) dans le chemin.

Ils sont forts chez IBM.

Merci à toi.