Den här kodsnutten fungerar perfekt i VBA, men inte i VB, varför?
<code>
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Email = Text1(10).Text
Subj = InputBox("Skriv in Din rubrik här:", "Svenssons AkordsWerkstad", "Angående: " & Text1(0).Text & " " & Text1(1).Text)
Msg = InputBox("Skriv Din information här: ", "Svenssons AkordsWerkstad")
Msg = Msg & "%0D%0A"
URL = "mailto:" & Email & "?subject=" & Msg
ShellExecute , vbNullString, URL, vbNullString, vbNullString, vbNormalFocus
</code>
Någon som ser något fel?

Vad är felet? Händer något? Felmeddelande? "Dött"?

Har du deklarerat funktionen ShellExecute?

/Johan

Du måste deklarera ShellExecute:
<code>
Private 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


Private Sub Command1_Click()
Dim Email As String, Subj As String
Dim Msg As String, URL As String
Email = Text1(10).Text
Subj = InputBox("Skriv in Din rubrik här:", "Svenssons AkordsWerkstad", "Angående: " & Text1(0).Text & " " & Text1(1).Text)
Msg = InputBox("Skriv Din information här: ", "Svenssons AkordsWerkstad")
Msg = Msg & "%0D%0A"
URL = "mailto:" & Email & "?subject=" & Msg
ShellExecute Me.hwnd, vbNullString, URL, vbNullString, vbNullString, vbNormalFocus

End Sub
</code>

Tack för det, jo jag misstänkte att jag hade missat någonting.
En sak till, kan jag kodvägen få in en signatur, som kommer i botten på medelandet?
DVS med en linje först osv?