envoyer un mail automatiquement

Question

Rebonjours, c'est encore moi :)

Je cherche maintenant comment faire pour envoyé un mail automatiquement ( sans vérification ).

En gros, je voudrais que des que j'appuis sur un bouton, un email s'envoi a un adresse déjà inscrite.

J'ai tester pas mal de script. Mais aucun ne convient, et pas beaucoup d'entre eux ne marche.. ( ou c'est surement moi qui ne sais pas les faire marché. )

J'ai essayé par l'intèremediaire d'une page web. Mais je ne comprends pas pourquoi les champs ne se remplice pas :

Dim URL As String, Arguments As String, Message As String, Sujet As String
Private Sub connect_Click()


Sujet = sujetdumsg
Message = Messageeeee
URL = "http://feteam.free.fr/MAIL.php"
Arguments = "[mailto:?to=maboitemail@mail.com&from=AucuneImportance@mail.com&sujet ?to=maboitemail@mail.com&from=AucuneImportance@mail.com&sujet]=" & Sujet  & "&message=" & Message
Shell "c:\Program Files\Internet Explorer\iexplore.exe " & URL & Arguments
End Sub

Lorsque j'envoi, les champs Sujet & Message reste vide :
http://feteam.free.fr/MAIL.phpto=maboitemail@mail.com&from=AucuneImportance@mail.com&sujet=&message=

Si quelqu'un pourait m'aider, ou m'indiquer une autre méthode...

Az3rTy49 · Answer

mm j'ai trouvé mon problème pour envoyé le mail avec php. Mais bon.. c'est pas top, car on voi la fenetre IE qui souvre... un moyen de la bloquer ?

mortalino · Answer

Salut,

je sais pas, 

là ça fait une heure que j'essaie de trouver une solution avec Outlook (envoi mail auto) mais j'arrive pas à le référencer...

mortalino · Answer

Bah j'arrive pas à le référencer, mais dans le cas où toi tu y arrives, je te transmet la procédure
(il faut donc référencer la bibliothèque d'objets Microsoft Outlook

Sub Envoi_Mail()

    Dim OutLookApp          As Outlook.Application
    Dim MItem               As Outlook.MailItem
    Dim ObjetMail           As String
    Dim AddresseMail        As String
    Dim DestinataireMail    As String
    Dim MessageMail         As String
    
'*** admettons que tu ais 2 TextBox, une pour l'adresse (TextBox1),
'    une pour le pseudo(TextBox2)

AddresseMail = TextBox1.Text
DestinataireMail = TextBox2.Text
ObjetMail = "Bienvenue !"
MessageMail = "Bonjour " & DestinataireMail & vbCrLf & vbCrLf & _
            "Ceci est un message Test." & vbCrLf & vbCrLf & _
            "A bientôt"

    Set OutLookApp = CreateObject(Outlook.Application)
    Set MItem = OutLookApp.CreateItem(olMailItem)
    
With MItem
    .To = AdresseMail
    .Subject = ObjetMail
    .Body = MessageMail
    .Send
End With

    Set OutLookApp = Nothing
    Set MItem = Nothing

End Sub

Private Sub Command1_Click()
    Call Envoi_Mail
End Sub

En espérant t'avoir aider,

@++

  --Mortalino-- 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement !

Envoyer un mail automatiquement

3 réponses

Votre réponse

Discussions similaires