VBA Spalte durchsuchen- zugehörigen Wert speichern
31.08.2017 13:50:16
Nils
ich bin auf folgendes Problem gestoßen.
Ich bin gerade dabei eine Anweisung in VBA zu schreiben, die eine automatische E-Mail in Outlook anhand von Daten aus Excel generiert.
Der Code sieht wie folgt aus:
Sub Kontakte()
Dim olApp As Object
Dim olOldBody As String
Dim kunde As String
Dim empfaenger As String
kunde = "A AG"
empfaenger = ""
'Outlook aufrufen
Set olApp = CreateObject("Outlook.Application")
With olApp.CreateItem(0)
.SentOnBehalfOfName = " email"
.GetInspector.Display
olOldBody = .HTMLBody
.To = "" & empfaenger
.Subject = "Betreff" & dso
.cc = "email"
.HTMLBody = "Hallo " &olOldBody
End With
End Sub
Für den String "kunde" wird z.B. die Variabel A AG eingegeben. Diese wird in den Excelblatt "Kontakte" in der dazugehörigen Spalten z.B. A gesucht.
Sobald diese in A gefunden ist wird aus z.B. Spalte B die passende E-Mail Adresse dazu gesucht und unter der Variable "empfaenger" gespeichert und kann somit unter .To = "" & empfaenger aufgerufen werden.
Hat jemand dazu eine Idee einen Ansatz oder eine Lösung? So schwer kann das doch nicht sein?
Ich habe schon alles mögliche versucht. Ich kann zwar etwas programmieren aber habe vorher noch nie mit VBA gearbeitet.
Über Hilfe wäre ich sehr dankbar.
Viele Grüße
Nils