Hallo,
ich möchte aus Access den Datensatz "Bezeichnung" in Tobit mit in die Betreffzeil bekommen. In access ist in der Spalte email ein Hyplerlink zu der Vorlage, nun müsste in die Betreffzeile der Datensatz Bezeichnung aus der Zeile , in der auf den Hyperlink geklickt wurde
Ich hoffe ich habe alle nötigen Angaben zu meinem Problem gemacht
Danke im voraus
Andre
Auch das hier sollte wieder über die DvAPI Programmierung möglich sein. Ob es auch einfacher und direkt geht, weiß ich nicht, glaube es aber auch nicht.
Vielleicht hat Paddy eine Idee.
Gruß Jens
Danke für deine Antwort. Leider habe ich in Tobit noch nie programmiert kennt ihr ein tutorial davon oder könnt ihr mir das erklären``
Hallo,
es gibt nur einige Beispiele in der Hilfe der DvApi. Wenn man sich generell mit dem Programmieren in C, C#, VB, etc auskennt, sollte man damit klar kommen. Die DvAPI kann man bei Tobit im Downloadbereich laden.
Das mal eben so zu erklären ist nicht so ohne weiteres zu machen. Sicher können wir Beispiele oder Hilfe bieten. Wie ist denn Dein Kenntnisstand im Bereich der Programmierung?
Gruß Jens
Hallo,
ich habe einen Code gefunden
Dim oApp As DvApi32.IApplication
Dim oAccount As DvApi32.Account
Dim oArchive As DvApi32.Archive
Dim oMailItem As DvApi32.MailItem
Dim oAttachment As DvApi32.Attachment
Dim l As Long
Set oApp = CreateObject("DVOBJAPILib.DvISEAPI")
Set oAccount = oApp.Logon("", "", "", "", "", "AUTH")
Set oArchive = oAccount.GetSpecialArchive( _
DvApi32.DvArchiveTypes.DvArchivePersonalOut)
Set oMailItem = oArchive.NewItem(DvApi32.DvItemTypes.DvEMailItem)
If Not IsNull(Me!VarEmpfaenger_an) Or Len(Me!VarEmpfaenger_an) > 0 Then
l = oMailItem.Recipients.Add(Me!VarEmpfaenger_an & "", "MAIL", "")
If IsNull(Me!Betreff_Subject) Or Len(Me!Betreff_Subject) < 1 Then
MsgBox "Die Angabe in der Betreffzeile fehlt!", _
vbExclamation Or vbMsgBoxRight, "E-Mail - Betreff fehlt"
Else
oMailItem.Subject = Me!Betreff_Subject
If IsNull(Me!Nachricht_Message) Or _
Len(Me!Nachricht_Message) < 1 Then
MsgBox "Ihre Nachricht ist LEER!", _
vbExclamation Or vbMsgBoxRight, _
"E-Mail - Keine Nachricht"
Else
oMailItem.BodyText.HTMLText = "<hmtl><body>" & _
Me!Nachricht_Message & _
"</body></html>"
oMailItem.Options.UserHold = False
End If
oMailItem.Attachments.Add Me!Anhang & ""
oMailItem.Send
End If
Else
MsgBox "Ohne E-Mail-Adresse kann man KEINE E-Mail versenden!", _
vbCritical, "Keine Nachricht"
End If
DoCmd.Close
Exit Sub
End Sub
Private Sub Form_Open(Cancel As Integer)
If Len(Nz(Me.OpenArgs)) = 0 Then
MsgBox "Darf nur als Submaske aufgerufen werden, OpenArgs fehlen", , _
"Fehler - OpenArgs nicht angegeben"
DoCmd.Close
Exit Sub
End If
Me!Anhang = Me.OpenArgs
End SubDoch weiß ich nicht, warum immer die Fehlermeldung Darf nur als Submaske aufgerufen werden kommt und wie ich die vorlage öffnen kann. Welche Felder brauche ich den und was bedeuten diese.
Danke im voraus
Sie haben noch kein Benutzerkonto auf unserer Seite? Registrieren Sie sich kostenlos und nehmen Sie an unserer Community teil!