Hvordan laver man det sådan at når man har udfyldt nogle Text felter og trykker på og sender den det man har skrevet til bilfeldt@yahoo.dk
TAK!!!!!!
Hej der!
Du eventuelt bruge den følgende kode til dit program..... input kommer fra tekst boksene men kunne også være konstanter eller variabler....
Private Sub CmdSend_Click()
MAPIMessages1.Compose
MAPIMessages1.RecipDisplayName = txtto.Text
MAPIMessages1.MsgSubject = txtsubject.Text
MAPIMessages1.MsgNoteText = txtmessage.Text
MAPIMessages1.ResolveName
MAPIMessages1.Send
End Sub
Private Sub Form_Load()
MAPISession1.DownLoadMail = False
MAPISession1.NewSession = False
MAPISession1.LogonUI = True
MAPISession1.SignOn
MAPISession1.NewSession = True
MAPIMessages1.SessionID = MAPISession1.SessionID
If MAPIMessages1.MsgCount > 0 Then
txtfrom.Text = MAPIMessages1.MsgOrigDisplayName
txtto.Text = MAPIMessages1.RecipDisplayName
txtsubject.Text = MAPIMessages1.MsgSubject
txtmessage.Text = MAPIMessages1.MsgNoteText
CmdSend.Enabled = True
End If
End Sub
Mvh
Christian