title image


Smiley Emails automatisch versenden?
Ich versende Mails aus VB nach folgender Vorgehensweise:Modul-CodePrivate Declare Function ShellExecute Lib "Shell32.dll" _Alias "ShellExecuteA" (ByVal hWnd As Long, _ByVal lpOperation As String, ByVal lpFile As String, _ByVal lpParameters As String, ByVal lpDirectory As String, _ByVal nShowCmd As Long) As Long Public Sub Mail(eMail As String, Optional Subject As String, _Optional Body As String) Call ShellExecute(0&, "Open", "mailto:" + eMail + _ "?Subject=" + Subject + "&Body=" + Body, "", "", 1)End Sub Form-CodeErforderliche Objekte Command1Private Command1_Click() Call Mail("Marcus-Schmitt@gmx.de", "Ein Betreff", "Vorgabetext")End Sub Einziger Nachteil: Um die Mail abzusenden muß ich immer noch den Button "Senden" im Mail Formular betätigen. Die Mail wird zwar mit obigen Programm automatisch mit Adresse, Text usw erstellt, aber kann nur manuell abgesendet werden. Hat wer dazu eine Lösung um auch die Sendug zu Automatisieren?mfgThomas Hitzner

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: