/ Forside / Teknologi / Udvikling / VB/Basic / Nyhedsindlæg
Login
Glemt dit kodeord?
Brugernavn

Kodeord


Reklame
Top 10 brugere
VB/Basic
#NavnPoint
berpox 2425
pete 1435
CADmageren 1251
gibson 1230
Phylock 887
gandalf 836
AntonV 790
strarup 750
Benjamin... 700
10  tom.kise 610
hvordan sender man en mail i vb6 ?
Fra : L F Clausen


Dato : 06-11-02 16:14

Hej

Jeg har et lille problem: hvordan kan jeg med vb kode sende f.ex fil.txt
til f.ex nonam@noname.dk

På forhånd tak

Leo Falck Clausen


 
 
CADmageren ApS (06-11-2002)
Kommentar
Fra : CADmageren ApS


Dato : 06-11-02 16:51

Under forudsætning af at der er MAPI installeret, er der her et kode
eksempel
Mvh
www.cadmageren.dk

Michael Christoffersen

Du skal placere de to controller MapiSession og MapiMessages på din form.

MainForm.Enabled = False ' Sikre dig at brugeren ikke laver andet i dit
program, så længe at mailen sendes.

MailIO_Initialize
If MsgBox(Mail.Prompt, 36, "Send " & Mail.Titel) = vbYes Then
With MAPISession1
.DownLoadMail = False
.SignOn
MAPIMessages1.SessionID = .SessionID
With MAPIMessages1
.Compose
.AddressResolveUI = True
.RecipAddress = Mail.Sendto
.RecipDisplayName = .RecipAddress
.ResolveName
.MsgNoteText = " " & vbNewLine & Mail.Body
.MsgSubject = Mail.Subject
.AttachmentType = mapData
'.AttachmentName =
.AttachmentPathName = sfilename
.AttachmentPosition = 0
.Send True
End With
.SignOff
End With
MsgBox UCase(Left(Mail.Titel, 1)) & Mid(Mail.Titel, 2) & " er
afsendt", vbInformation, "Send"
End If




Jens Brandt (08-11-2002)
Kommentar
Fra : Jens Brandt


Dato : 08-11-02 09:43

Hvis man anvender MAPI, hvordan styrer man så formatet af en evt.
vedhæftet fil ? MIME, UUEncode el. BINHEX !!


/Jens
--
---------------------------
reply or mail:
replace "nomail."
with "mail."
---------------------------

Norsk IT (08-11-2002)
Kommentar
Fra : Norsk IT


Dato : 08-11-02 08:36

Hei.
Her har du en kode der du kan legge inn mottaker, emne, attachments etc.
Lagre denne koden som .vbs og den vil virke uten videre.
Bare fyll inn informasjonen.

Hilsen Espen Zaal
Norge

Dim o
Dim m

Set o = CreateObject("Outlook.Application")
Set m = o.CreateItem(0)

m.To = "noname@noname.dk"
m.Subject = "Dette er en mail til noname!!"
m.Body = "Her kommer den avtalte rapporten, skrevet ut via automatisk
mailing via VB?!"
m.Attachments.Add "test.txt"
'Repeat this line if there are more Attachments
'm.Display
m.Send 'If you want to just send it


"L F Clausen" <lfclausen@msn.com> skrev i melding
news:3DC931CD.9030604@msn.com...
> Hej
>
> Jeg har et lille problem: hvordan kan jeg med vb kode sende f.ex fil.txt
> til f.ex nonam@noname.dk
>
> På forhånd tak
>
> Leo Falck Clausen
>



Søg
Reklame
Statistik
Spørgsmål : 177557
Tips : 31968
Nyheder : 719565
Indlæg : 6408879
Brugere : 218888

Månedens bedste
Årets bedste
Sidste års bedste