Ouvrir le client Outlook depuis lotus

**Michael.RHAN** · 08/06/2015, 16h38

Hello

je cherche un moyen d'ouvrir le client outlook depuis un client lotus.

@formule, Lotus script ...

j'ai pas trouvé grand chose

Merci

**Michael.RHAN** · 09/06/2015, 10h04

pour la formule j'ai trouvé => @Command([Execute]; "mailto:toto@toto.com") ou @Command([Execute]; "mailto:") si on veux pas de destinataire

reste plus qu'a trouver comment le faire en LS

**Fabrice Papirnyk** · 09/06/2015, 10h48

La fonction [Execute] c'est plutôt pour appeler directement le fichier exécutable de Outlook.
Pour mailto, il suffit d'un simple @URLOpen / Call notesUIWorkspace.URLOpen .
Mais ça peut être bon quand même, il faut tester les différentes astuces.

La fonction Shell en LS fait la même chose que [Execute].

Pour des fonctions plus avancées, tu peux appeler en LS les classes VBS dédiées à Outlook.

**Michael.RHAN** · 09/06/2015, 11h50

Merci

Finalement, j'ai reussi a faire qqc

Public Sub ShellMailTo(wSendto As String,wSubject As String,wBody As String,wnbMailToProtocolHandler)

Dim nbTaskID As Integer
REM passer wnbMailToProtocolHandler a True si ça ne marche pas
Dim Param As String

On Error GoTo CatchError

Param=""
If Trim(wSubject) <> "" Then
Param = "subject="+Trim(wSubject)
End If
If Trim(wBody) <> "" Then
If Trim(Param) <> "" Then
Param = Param+"&"
End If
Param = Trim(Param)+"body="+Trim(wBody)
End If

If Trim(Param) <> "" Then
Param = "?"+Trim(Param)
End If

If wnbMailToProtocolHandler = False then
nbTaskID = Shell("rundll32.exe url.dll,FileProtocolHandler mailto:"+Trim(wSendTo)+Param)
else
nbTaskID = Shell("rundll32.exe url.dll,MailToProtocolHandler "+Trim(wSendTo)+Param)
End If
Param=""
Exit Sub
CatchError:
MsgBox "("+Cstr(GetThreadInfo (1))+" ( Release"+CStr(Release_Script)+") Call by "+Cstr(GetThreadInfo(10))+")"+Chr(10)+"Error " + CStr(Err) + " : "+Chr(10) + CStr(Error)+". "+Chr(10)+"Line # "+Cstr(Erl),16," ERROR !"
Exit Sub
End Sub

**Fabrice Papirnyk** · 09/06/2015, 11h56

J'ai l'impression que tout ce code pourrait s'écrire en une seule ligne, mais bon..

URLOpen("mailto:contact@domaine.com?subject=titre&body=texte..etc")

**Michael.RHAN** · 09/06/2015, 21h08

oui ça peu se résumer en une seule ligne, sauf si tu veux passer des arguments et pas te prendre la tete avec la construction de la dire url.

mais j’aurai pu penser a openurl. je vais d’ailleurs faire la correction.

mais faut toujours que je trouve pour ouvrir outlook sans pour autant ouvrir un mail

**Jérôme Deniau** · 09/06/2015, 22h29

Comme ça sort bientôt: IMSMO (IBM Mail System for Microsoft Outlook), le client utilise son compte notes sur le serveur Traveler et fait de l'activesync, sans savoir qu'il utilise un serveur Domino). Concernant les application Notes, les passer en xPages et utiliser un simple navigateur.