Envoi d'email via VB

Question

Bonjour,

Je cherche un code VB simple pour l'envoie d'un email avec attachement. J'ai essayer plusieur source du forum mais je trouve pas un qui marche.
Merci

cboulas · Answer

Salut,

Est-ce à toi que j'ai poster un script ?

Chris...
Firstruner

mbelha · Answer

Non.

cboulas · Answer

emaildest = InputBox("Indiquer l'adresse e-mail du destinataire", "Cryptext - E-mail du destinataire")
    If Len(emaildest) = 0 Then Exit Sub
    emailsubject = InputBox("Indiquer le sujet", "Cryptext - Sujet du message")
    emailmsg = InputBox("Indiquer un léger message pour votre message", "Cryptext - Message")
    Dim ObjOutl As Object
    Dim objSession As Object
    On Error Resume Next
    Set ObjOutl = CreateObject("Outlook.Application")
    Set objSession = ObjOutl.GetNamespace("MAPI")
    Set ObjMessage = ObjOutl.CreateItem(0)
    objSession.Logon
    With ObjMessage
        .To = emaildest
        .CC = ""
        .Subject = emailsubject
        .Body = emailmsg
        ObjMessage.Attachments.Add Sfile
        .Send
    End With

    Set ObjMessage = Nothing
    objSession.Logoff
    Set objSession = Nothing
    Set ObjOutl = Nothing


Chris...
Firstruner

mbelha · Answer

Super ca marche! Le seul petit problem et que j'ai un message Office Outlook qui me dit que quelqu'un envoie un message (on my behalf) et me demande de confirm par OK. Y'a t'il moyen de desactivé cette securité le temps de l'envoie?

cboulas · Answer

Non pas avec Outlook, Outlook Express ne le demande pas, ou alors utilise SendKeys pour envoyer les commande de touche

Chris...
Firstruner

mbelha · Answer

Je suis obliger d'utiliser Outlook:-(. Le SendKeys "ENTER" ou "~" ne marche pas. Tempi merci.

Michel

cboulas · Answer

Pour voir un exemple de sendkeys, regarde avec :


Dim ReturnValue, I
ReturnValue = Shell("calc.exe", 1)   ' Exécute l'application Calculatrice.
AppActivate ReturnValue               ' Active l'application Calculatrice.
For I = 1 To 100   ' Configure la boucle de comptage.
   SendKeys I & "{+}", True   ' Envoie des frappes de touches
   Next I                     ' à l'application Calculatrice pour
                              ' ajouter chaque valeur de I.
SendKeys "=", True   ' Fait le total général.
SendKeys "%{F4}", True   ' Envoie la combinaison ALT+F4 pour fermer
                        ' l'application Calculatrice.


Chris...
Firstruner

mbelha · Answer

Le SendKeys ne marche pas avec ce message. Merci

Michel

cboulas · Answer

Ah, Attent je me fait un test et te dit ça aujourd'hui

Chris...
Web :Firstruner - eMail : [mailto:support@firstruner.com Support]

cs_Nanto · Answer

Nanto

Pour ce qui est d'envoyer un email avec les sources de ce forum, j'en ai utilisé une qui marche super (je fais du mailing et j'envoie les mails par 100 !!!) ça marche aussi bien en outlook (avec ou sans exchange) qu'avec outlook express (et théoriquement avec d'autres messageries si elles utilisent MAPI). Pour cela il faut utiliser les contrôles MAPI. 

Par contre pour la sécurité d'outlook XP, il faut voir si tu es avec ou sans exchange. C'est un paramètre obligatoire utilisé par Microsoft. Pour s'en sortir, voilà des liens.

Généralités Pour développeurs :

http://support.microsoft.com/kb/263297

 

Pour administrateurs (exchange) :

http://support.microsoft.com/kb/263297#WR

@pulse

abdellatifalaoui · Answer

pas de commentaire sur ce sujet

juli1m · Answer

si tu as encore tes probl&#232;mes de fen&#234;tre pour envoyer un message, je te
conseil un petit prog qui s'appelle ClickYes, il se lance au d&#233;marrage
de Windows et surveille l'arriv&#233;e de cette petite fen&#234;tre. &#224; son
apparition, tu pourras voir furtivement la barre de progression passer
de 0% &#224; 100%, le bouton oui apparait et &#231;a clique tout seul.

Envoi d'email via VB

12 réponses

Discussions similaires