Hej
Jag behöver skicka ett epostmeddelande med bifogad fil från mitt vb6 program.
Problemet är att jag inte fattar hur man gör detta.
Någon som har ett någerlunda enkelt exempel på detta?

Jag har själv suttit med detta den senaste dagen. Jag har löst det genom att använda MAPI kontroller. Gör så här:
gå in under project/components och infoga Microsoft MAPI kontrolls.
Då kommer två nya kontroller upp på din verktygslist. Lägg till bägge två på ditt formulär.
Sen skrev jag in nedanstående kod i en modul. Jag hade ett formulär som hette
frmselect, där jag lade de två MAPI kontrollerna.


Sub SendResults()

'Sätter användarnamn och lösenord
frmSelect.MAPISession1.UserName = Ditt användarnamn på emailkontot
frmSelect.MAPISession1.Password = Ditt lösenord på emailkontot

'Startar en ny session
frmSelect.MAPISession1.SignOn

'Binder ihop mailhanteraren med sessionen
frmSelect.MAPIMessages1.SessionID = frmSelect.MAPISession1.SessionID

'Skapar ett nytt mail
frmSelect.MAPIMessages1.Compose

'bifoga filer
frmSelect.MAPIMessages1.AttachmentPathName = App.Path & "\data\drivers.dat"
frmSelect.MAPIMessages1.AttachmentPathName = App.Path & "\data\highscore.dat"


'Addresserar mailet
frmSelect.MAPIMessages1.RecipDisplayName = "Namn"
frmSelect.MAPIMessages1.RecipAddress = "emailadress"

'Checkar namnet
frmSelect.MAPIMessages1.AddressResolveUI = True
frmSelect.MAPIMessages1.ResolveName

'Skapar meddelandet
frmSelect.MAPIMessages1.MsgSubject = "Results"
frmSelect.MAPIMessages1.MsgNoteText = "Var vänlig, fyll i nedanstående uppgifter" & vbCrLf & "Skola:" & vbCrLf & "Klass:"

'Skickar meddelandet
frmSelect.MAPIMessages1.Send True

End Sub


Fyll i dina egna inställningar, och anropa sedan denna subrutinen från ditt formulär.
Det står även en hel del bra information om MAPI kontrollerna i MSDN-library hjälpen.

Robin

Funkar jättebra!
Tusen tack.