VB6-Een veld onderwerp toevoegen en mail sturen

Status
Niet open voor verdere reacties.
S

satriano17

Gebruiker
Lid geworden
30 sep 2012
Berichten
331
Ik heb een textbox ' txtemail'
een command1 button
en onderstande code om een mail vanuit vb te sturen

In module:
Code: 
Public 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

onder button command button
Code: 
Private Sub Command1_Click()
Dim Success As Long
Success = ShellExecute(0&, vbNullString, "mailto:" & txtEmail, vbNullString, "C:\", 1)

Tot hier alles goed. mail wordt correct verstuurd

Echter, ik wou een veld toevegen voor onderwerp.
Ik heb dan een textbox'Onderwerp' geplaats en toegvoegd ook aan de ShellExecute
maar het lukt niet. Email wordt wel opgestuurd maar geen onderwerp

Code: 
Success = ShellExecute(0&, vbNullString, "mailto:" & txtEmail & onderwerp, vbNullString, "C:\", 1)

Een idee hoe ShellExecute te aanpassen en uitbreiden met het nieuw textbox 'Onderwerp' ?
dank u
 
Laatst bewerkt:
Een beetje complex, lijkt mij.

Ik dacht gewoon aan een aanpassing van de shellexecute, voor een enkel veld te voegen.
 
Dat is ook wat in die link wordt uitgelegd.
 
als ik goed gelezen heb moet dan zo in mijn geval

Code: 
Private Sub Command1_Click()
Dim Success As Long
Success = ShellExecute(0&, vbNullString, "mailto:" & txtEmail  & "&Subject=" & onderwerp , vbNullString,"C:", 1)
 
Laatst bewerkt:
En dat kan je uiteraard eenvoudig testen.
 
Lees het voorbeeld goed.
Die "&Subject=" moet zijn: "?Subject="
 
Jawel, nu wel . Ik had een '=" niet getekend.
Het werkt !
 
Laatst bewerkt:
Omdat er geen = staat achter "?Subject".
 
ja. het werkt, Edmoor. Perfect.
Bedankt

Ik had non een vraag. Als ik de mail verstuur , gaat eerste mijn mail programma open en dan moet ik nog op VERZEND drukken

Kan niet direct, zonder mijn mail programma eerste te laten open?
Alleen om te vragen...

In elke geval, Opgelost dus. Nogmaals bedankt.
 
Laatst bewerkt:
Nee, dat kan alleen als je CDO of Outlook gebruikt om te mailen.
 
Status
Niet open voor verdere reacties.
Steun Ons

Nieuwste berichten

Terug
Bovenaan Onderaan