Access frage...bitte hilfe
 

Hi leute...

habe da mal ne frage:

ich habe im access verdammt viele adressen (7000), und habe ein formular gemacht für die schnellabfrage. nun meine frage:


man sieht doch auf den websites buttons, wo man so fort eine e-mail senden kann==> die adresse steht schon im Outlookfenster...


nun möchte ich auch einen hyperlink (?) setzen, damit dass bei mir auch so geht?

wie geht das?

Re: Access frage...bitte hilfe
 

mit VBA geht das auf jeden fall (Zugriffe per VBA auf eine Datenbank steht weiter unten in einem Thread von mir)

mfg

Re: Re: Access frage...bitte hilfe
 

wo?


vba bin ich ein dau...

Hi!

Wenn es nur auf einem Rechner verwendet wird, ist es wohl kein großes Problem.

Eine universelle Lösung ist für einen Anfänger aber wahrscheinlich eine Nr. zu groß.

Ich könnte mir übrigens gut vorstellen, daß es bereits eine fertige Lösung gibt. Vielleicht sogar bereits mit Access geliefert.
Durchforste mal die Access Hilfe.

mfg

WB

Ich spendier dir eine Procedure, die ich seinerzeit für Access97 geschrieben (abgeschrieben/umgeschrieben) habe. Vielleicht gibt es jetzt schon elegantere Lösungen, habe mich aber damit nicht mehr beschäftigt.

-------------------------------
Function SendMess(Typ, SendNam)
'Typ=TO oder CC
'Sendnam=Emailadresse

Dim objOutlook As Outlook.Application
Dim objOutlookMsg As Outlook.MailItem
Dim objOutlookRecip As Outlook.Recipient
Dim objOutlookAttach As Outlook.Attachment
'Dim objOutlookSubject As Outlook.Subject

'existierendes oder neues Outlook starten
On Error Resume Next
Set objOutlook = GetObject(, "Outlook.Application")
If Err.Number <> 0 Then
Err.Clear
Set objOutlook = CreateObject("Outlook.Application")
End If

' Create the message.
Set objOutlookMsg = objOutlook.CreateItem(olMailItem)
With objOutlookMsg
Set objOutlookRecip = .Recipients.Add(SendNam)
If Typ = "TO" Then
' Add the To recipient(s) to the message.
objOutlookRecip.Type = olTo
Else
' Add the CC recipient(s) to the message.
objOutlookRecip.Type = olCC
End If

.Display

End With

Set objOutlook = Nothing

End Function
-----------------------------------
Zugriff über zwei Buttons (TO, CC):
"EMAIL" ist der von mir vergebene Steuerelementname (und auch der Feldname):

Private Sub Befehl116_Click()
a = SendMess("TO", Me!EMAIL)
End Sub

Private Sub Befehl117_Click()
a = SendMess("CC", Me!EMAIL)
End Sub

also ich sag mal danke, werd morgen mal probieren ob es geht..gracias.

Hi,

wenn es ein einfaches Html-Formular ist:

eMail senden

wenn du ein Bild verwenden möchtest dann hänge noch das an:

[img]Pfad/email.gif[/img]</a>
das border="0" entfernt den blauen Rahmen um das Bild.

sieht dann so aus:

[img]Pfad/email.gif[/img]

Wenn du einen Betreff in der eMail vorgeben willst dann hängst du diesen einfach per ? an:

Fragen-W&uuml;nsche-Probleme


mfg
PzAB9_1