OVH Cloud OVH Cloud

Urgent !

4 réponses
Avatar
LOIC
Bonjour,

Je me permet de reposer ma question car cela devient assez urgent et je
tourne en rond.
Je souhaite envoyer un email à partir de mon appli en vb.net. en utilisant
la messagerie par défaut installé à savoir outlook express et non outlook !
Avant j'utilisé System.Diagnostics.Process.Start("mailto .....")
mais il y a une limite de taille et je bloque avec cela donc à moins que
vous n'ayez matière à solutionner ce problème.

Je me suis orienté sur la création d'une instance dans word mais avec comme
type de document un email et non pas la vue de traitement de texte et je
cherche simplement à envoyer
le nom du destinataire l'objet et le corps du texte ce sur quoi je bloque !

De cette facon le mail avant d'être envoyer peut encore être modifié car il
est pré formater dans mon appli et se trouve dans la boîte éléments envoyés.

le code qui fonctionne pour appeler word et l'interface mail :

Dim WordApp As New Word.ApplicationClass
Dim fileName As Object = "normal.dot"
Dim newTemplate As Object = False
Dim docType As Object = 2
Dim isVisible As Object = True
Dim aDoc As Word.Document = WordApp.Documents.Add(fileName, newTemplate,
docType, isVisible)
WordApp.Visible = True
aDoc.Activate()

Si quelqu'un peut me dépanner c'est le dernier soucis et je boucle cette
appli.



Merci

4 réponses

Avatar
Etudiant
pk ne redeveloppe tu pas une form ressemblant a une boite de mail et
c'est ton aplli qui envoie les mails. C'est tres rapide a faire
Avatar
LOIC
parce que ce n'est pas ce que je veux faire.

Merci

"Etudiant" a écrit dans le message de news:
Or9DLa%
pk ne redeveloppe tu pas une form ressemblant a une boite de mail et c'est
ton aplli qui envoie les mails. C'est tres rapide a faire


Avatar
Cédric Bellec
Bonjour,

Est ce que vous rencontrez toujours une limite de taille en passant par les
propriété de l'objet Process ?

Comme ceci par exemple :

Private Function ExecuteFile(ByVal FileName As String) As Boolean
Dim myProcess As New Process
myProcess.StartInfo.FileName = FileName
myProcess.StartInfo.UseShellExecute = True
myProcess.StartInfo.RedirectStandardOutput = False
myProcess.Start()
myProcess.Dispose()
End Function

Function openclient()
Dim MsgBuilder As New System.Text.StringBuilder

MsgBuilder.Append("mailto:")
MsgBuilder.Append("&cc=,")
MsgBuilder.Append("&bcc=,")
MsgBuilder.Append("&subject=this is test subject")
MsgBuilder.Append("&body=this is test body")
MsgBuilder.Append("&Attach="c:mailattach.txt")

'Debug.WriteLine(MsgBuilder.ToString)

ExecuteFile(MsgBuilder.ToString)

End Function

Cordialement,
Cédric


"LOIC" a écrit dans le message de news:
%
Bonjour,

Je me permet de reposer ma question car cela devient assez urgent et je
tourne en rond.
Je souhaite envoyer un email à partir de mon appli en vb.net. en utilisant
la messagerie par défaut installé à savoir outlook express et non outlook
!
Avant j'utilisé System.Diagnostics.Process.Start("mailto .....")
mais il y a une limite de taille et je bloque avec cela donc à moins que
vous n'ayez matière à solutionner ce problème.

Je me suis orienté sur la création d'une instance dans word mais avec
comme type de document un email et non pas la vue de traitement de texte
et je cherche simplement à envoyer
le nom du destinataire l'objet et le corps du texte ce sur quoi je bloque
!

De cette facon le mail avant d'être envoyer peut encore être modifié car
il est pré formater dans mon appli et se trouve dans la boîte éléments
envoyés.

le code qui fonctionne pour appeler word et l'interface mail :

Dim WordApp As New Word.ApplicationClass
Dim fileName As Object = "normal.dot"
Dim newTemplate As Object = False
Dim docType As Object = 2
Dim isVisible As Object = True
Dim aDoc As Word.Document = WordApp.Documents.Add(fileName, newTemplate,
docType, isVisible)
WordApp.Visible = True
aDoc.Activate()

Si quelqu'un peut me dépanner c'est le dernier soucis et je boucle cette
appli.



Merci




Avatar
LOIC
Merci

Oui toujours le même soucis une limitation à 2kb en utilisant l"objet
process !!

Apparament aucune solution n'existe si ce n'est faire une interface mail
dans l'appli hors je n'en ai aucun besoin !! car sinon on est obligé
d'utiliser la réference outlook mais par la messagerie par défaut est
outlook express dans le cas présent.


"Cédric Bellec" a écrit dans le message de
news:
Bonjour,

Est ce que vous rencontrez toujours une limite de taille en passant par
les propriété de l'objet Process ?

Comme ceci par exemple :

Private Function ExecuteFile(ByVal FileName As String) As Boolean
Dim myProcess As New Process
myProcess.StartInfo.FileName = FileName
myProcess.StartInfo.UseShellExecute = True
myProcess.StartInfo.RedirectStandardOutput = False
myProcess.Start()
myProcess.Dispose()
End Function

Function openclient()
Dim MsgBuilder As New System.Text.StringBuilder

MsgBuilder.Append("mailto:")
MsgBuilder.Append("&cc=,")
MsgBuilder.Append("&bcc=,")
MsgBuilder.Append("&subject=this is test subject")
MsgBuilder.Append("&body=this is test body")
MsgBuilder.Append("&Attach="c:mailattach.txt")

'Debug.WriteLine(MsgBuilder.ToString)

ExecuteFile(MsgBuilder.ToString)

End Function

Cordialement,
Cédric


"LOIC" a écrit dans le message de news:
%
Bonjour,

Je me permet de reposer ma question car cela devient assez urgent et je
tourne en rond.
Je souhaite envoyer un email à partir de mon appli en vb.net. en
utilisant la messagerie par défaut installé à savoir outlook express et
non outlook !
Avant j'utilisé System.Diagnostics.Process.Start("mailto .....")
mais il y a une limite de taille et je bloque avec cela donc à moins que
vous n'ayez matière à solutionner ce problème.

Je me suis orienté sur la création d'une instance dans word mais avec
comme type de document un email et non pas la vue de traitement de texte
et je cherche simplement à envoyer
le nom du destinataire l'objet et le corps du texte ce sur quoi je bloque
!

De cette facon le mail avant d'être envoyer peut encore être modifié car
il est pré formater dans mon appli et se trouve dans la boîte éléments
envoyés.

le code qui fonctionne pour appeler word et l'interface mail :

Dim WordApp As New Word.ApplicationClass
Dim fileName As Object = "normal.dot"
Dim newTemplate As Object = False
Dim docType As Object = 2
Dim isVisible As Object = True
Dim aDoc As Word.Document = WordApp.Documents.Add(fileName, newTemplate,
docType, isVisible)
WordApp.Visible = True
aDoc.Activate()

Si quelqu'un peut me dépanner c'est le dernier soucis et je boucle cette
appli.



Merci