Zugriff auf VBA mit Outlook - ".To" -Zeile zeigt Primärschlüssel anstelle von E-Mail-Informationen an

Question

Ich versuche, eine Outlook-Nachricht basierend auf Informationen in meinem Formular anzuzeigen.

Die Zeile ".To" zeigt "Me.Email" an, die auf ein Kombinationsfeld im Formular verweist.

Ich versuche, E-Mail-Adressen hinzuzufügen, die in eine separate Tabelle "Firma" eingegeben werden. Das Kombinationsfeld zeigt E-Mails an, aber die Outlook-Nachricht "An" enthält den Primärschlüssel. Wie kann ich auf die E-Mail und nicht auf den Primärschlüssel verweisen?

Private Sub Distribute_Click() 

Dim oApp   As Object 
Dim objOutlookMsg As Object 

Set OutApp = CreateObject("Outlook.application") 'Set Outlook application 

Set objOutlookMsg = OutApp.CreateItem(0) 

With objOutlookMsg 
    .To = Me.Email 'Only pulls the Primary Key ID number instead of e-mails? 
    .Subject = Me.Name & " - Approval Letter" 
    .Body = "Generic Message" 
    .Display 
End With 

Set oMail = Nothing 
Set oApp = Nothing 

End Sub 

Answer 1

Wenn Sie den Primärschlüssel in dieser Combobox nicht brauchen, entfernen Sie die Spalte von der Quelle Abfrage, und passen Sie die Combobox Eigenschaften entsprechend (Anzahl der Spalten, gebundene Spalte, ...)

Oder setzen Sie die gebundene Spalte auf die Spalte mit der E-Mail-Adresse.

Oder verwenden

.To = Me.Email.Columns(1) ' guessing that Columns(0) is the ID