hej hvordan laver jeg et program hvor jeg kan maile i gemmen det (visual basic) og den skal ikke åbne standart programmet
Hej
brug Microsoft MAPI OCX, som findes under components.
I hjælp filen (MSDN) finder der en god forklaring på hvordan du bruger MAPI session og MAPI message.
Du er velkommen til at vende tilbage.
Lars Bjerre-Harpøth
Ploblemet er at jeg ikke har MSDN i nu har fået programmet af en ven *GG* :-(
JT
Der findes et lile freeware program der hedder blat du kan downloade på
http://pages.infinit.net/che/blat/blat.html det skal bruges sammen med nedstående code
der er er masser af andre eksembler på nettet hvis du bare søger på "Blat" i Google.
Private Sub Form_Load()
Sender.Text = "afsender@mail.adresse"
Reciever.Text = "modtager@mailadresse"
Atachment.Text = "webmail.txt"
Server.Text = "hotmail.com"
End Sub
Private Sub Send_Mail_Click()
On Error GoTo Errorhandler
Dim objErrMail As New clsErrorMailer
objErrMail.Toggle = True
objErrMail.blat_location = App.Path & "\\blat.exe"
Call objErrMail.EmailError(Sender.Text, Reciever.Text, Server.Text, App.Path & "\\" & Atachment.Text)
StandardExit:
Exit Sub
Errorhandler:
MsgBox Err.Description
GoTo StandardExit
End Sub
'-------------------------- Skal puttes i ClassModul med navnet clsErrorMailer-----------------------------
Option Explicit
Private p_blat_location As String
Property Let blat_location(strblat_location As String)
p_blat_location = strblat_location
End Property
Property Get blat_location() As String
blat_location = p_blat_location
End Property
Public Property Let Toggle(Decision As Boolean)
If Decision = True Then
Call SaveSetting("ErrorMailer", "ClassErrors", "Toggle", "True")
ElseIf Decision = False Then
Call SaveSetting("ErrorMailer", "ClassErrors", "Toggle", "False")
End If
End Property
Private Sub Class_Initialize()
'default blat location...be sure to set this property
p_blat_location = "c:\\temp\\blat\\blat.exe"
End Sub
Private Function GetToggleState() As Boolean
Dim p As String
p = GetSetting("ErrorMailer", "ClassErrors", "Toggle")
If p = "True" Then
GetToggleState = True
Else
GetToggleState = False
End If
End Function
Public Sub EmailError(fromVar As String, ToVar As String, Server As String, fileToSend As String)
Dim x As String
x = p_blat_location & " " & fileToSend & " -s MailSpam " & _
"-t " & ToVar & " -f " & fromVar & " -server " & Server & " > " & App.Path & "\\shell.log"
Debug.Print x
If GetToggleState = True Then
Shell x, vbHide
Else
'do nothing
End If
End Sub