MS-Office-Forum

Zurück   MS-Office-Forum > Microsoft Office > Microsoft Excel
Registrieren Forum Hilfe Alle Foren als gelesen markieren

Banner und Co.

Antworten
Ads
Themen-Optionen Ansicht
Alt 06.01.2018, 13:43   #1
killerloop
Neuer Benutzer
Neuer Benutzer
Standard VBA - Textboxinhalt als Emailempfänger

Hallo Leute,

ich habe folgendes Problem und hoffe mir kann jemand helfen.
Ich habe eine UF in der mir ein Profil eines Nutzers angezeigt wird. Unter anderem auch ein Feld mit der Emailadresse (TextBoxname ist "txtemail"). Ich habe einen Button "Email schreiben" damit direkt das Emailprogramm eine neue Email erstellt.

Die Email wird auch erstellt mit dem Betreff aber leider weiß ich nicht wie ich die Empfänger-Emailadresse aus dem TextBox dem Programm gebe.

Folgenden Code nutze ich

Code:

On Error Resume Next
    '#  MAIL VORBEREITEN   ################################################################
        'MsgBox ("Bitte achten Sie darauf, dass in Notes keine popups geöffnet sind wie z.B.: ' _
Sie haben eine neue Mail erhalten'")
        'MsgBox ("Bei einer Fehlermeldung bitte auf 'Beenden' klicken." & VBA.Chr(13) & "Die _
Mail wird trotzdem vorbereitet." & VBA.Chr(13) & VBA.Chr(13) & "Danke")

        'Variablen Dimensionieren, die benötigt werden, um das Mail zu senden
        Dim mRows As Integer
        Dim mCols As Long
        Dim Maildb As Object 'Die Datenbank
        Dim UserName As String 'Der Benutzername
        Dim MailDbName As String 'Der Datenbankname
        Dim MailDoc As Object 'Das Maildokument selbst
        Dim AttachME As Object 'Der Anhang (Richtext)
        Dim Session As Object 'Die Notes Session
        Dim EmbedObj As Object 'Ein eingebettetes Objekt (Anhang)
        Dim SaveIt As Boolean
        Dim Subject As String
        Dim Attachment1 As String
        Dim Attachment2 As String
        Dim Recipient As String
        Dim cc As String
        Dim BodyText As String
        
        Subject = "Kontaktaufnahme"
    
        Recipient = ???
        cc = ""
        
              
        BodyText = ""
        
        Dim filename As String
        Dim numrows As Long
        Dim numcols As Integer
        Dim r As Long
        Dim c As Integer
        Dim data
        Dim exprng As Range
        Set exprng = Selection
        numcols = exprng.Columns.Count
        numrows = exprng.Rows.Count
            'Die Session starten
        Set Session = CreateObject("Notes.NotesSession")
        
            'Den Benutzernamen auslesen und den Dateinamen
            'der MailDB errechnen
            'Dies wird nicht überall benötigt. Auf manchen
            'Systemen kann auch ein leerer String übergeben werden
        UserName = Session.UserName
            'MailDbName = Left$(UserName, 1) & Right$(UserName, (Len(UserName) _
            - InStr(1, UserName, " "))) & ".nsf"
        MailDbName = "mailsaog.nsf"
       
            'Datenbank öffnen
        Set Maildb = Session.GETDATABASE("", MailDbName)
         If Maildb.IsOpen = True Then
              'Fertig zum mailen!
         Else
             Maildb.OPENMAIL
         End If
         
            'Ein neues Maildokument erstellen
        Set MailDoc = Maildb.CREATEDOCUMENT
        MailDoc.Form = "Memo"
        MailDoc.sendto = Recipient & ", " & cc
        
        MailDoc.Subject = Subject
        MailDoc.body = BodyText
        MailDoc.SAVEMESSAGEONSEND = SaveIt
                  
        Dim Workspace As Object
        Set Workspace = CreateObject("Notes.NOTESUIWORKSPACE")
        Call Workspace.editdocument(True, MailDoc).GOTOFIELD("Body")
    
        MsgBox ("Einen Augenblick bitte - Die Mail wird in Lotus Notes erstellt!")
    
            'Aufräumen
        Set Maildb = Nothing
        Set MailDoc = Nothing
        Set AttachME = Noth
        Set Session = Nothing
        Set EmbedObj = Nothing
    '######################################################################################
End Sub
Recipient = Range ("A27") habe ich vorher genutzt da er auf eine Tabelle zugreifen sollte. Wie sage ich Ihm aber das er den Inhalt der TextBox nehmen soll?

Vielleicht hat jemand von Euch eine Idee. Vielen Dank!
killerloop ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.01.2018, 14:12   #2
R J
MOF Meister
MOF Meister
Standard

Hi,

Zitat:

Recipient = Range ("A27") habe ich vorher genutzt da er auf eine Tabelle zugreifen sollte. Wie sage ich Ihm aber das er den Inhalt der TextBox nehmen soll?

...das ist jetzt nicht Dein Ernst, oder? Den Wert einer Zelladresse durch einen Objektwert ersetzen...

Wie wäre es mit: Recipient = TextBox1.Text (oder wie die Textbox mit dem Empfänger auch immer heißen mag)

__________________

Ciao, Ralf

Kommt mir irgendwie bekannt vor...
Auf, zum Markplatz der Ideen!
Der sicherste Ansatz für einen Irrtum ist der Glaube, alles im Griff zu haben.
Nur, weil ich den Recorder bedienen kann, macht mich das noch lange nicht zum Musiker.


R J ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Alt 06.01.2018, 14:21   #3
killerloop
Threadstarter Threadstarter
Neuer Benutzer
Neuer Benutzer
Standard

Hallo R.J.

vielen Dank für deine Antwort und deinen Lösungsvorschlag. Hat funktioniert!

Zu dem Anderen ... was soll ich sagen, es damals funktioniert
killerloop ist offline  
verlinken auf Del.icio.us Diese Seite zu Mister Wong hinzufügen
Antworten Auf Beitrag antworten
Ads
Antworten


Aktive Benutzer in diesem Thema: 1 (Registrierte Benutzer: 0, Besucher: 1)
 
Themen-Optionen
Ansicht

Forumregeln
Es ist Ihnen nicht erlaubt, neue Themen zu verfassen.
Es ist Ihnen nicht erlaubt, auf Beiträge zu antworten.
Es ist Ihnen nicht erlaubt, Anhänge anzufügen.
Es ist Ihnen nicht erlaubt, Ihre Beiträge zu bearbeiten.

vB Code ist An.
Smileys sind An.
[IMG] Code ist An.
HTML-Code ist An.
Gehe zu


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:25 Uhr.


Partner und Co.
Access-Paradies -Alles rund um die Datenbank Microsoft Access -Code -Programme-Tools -Tipps   Kostenlose Tipps & Tricks, Downloads und Programme   www.kulpa-online.com - Tipps - Tricks - Tutorials - Meinungen - Downloads uvm...   vb@rchiv · Willkommen in der Welt der VB Programmierung   Access-Garhammer - Hier finden Sie jede Menge Beispiel-Datenbanken zu Access und mehr ...   mcseboard.de   Die Top Seite für Excel-VBA-Makros uvm.

Powered by: vBulletin Version 3.6.2 (Deutsch)
Copyright ©2000 - 2018, Jelsoft Enterprises Ltd.

Copyright ©2000-2018 MS-Office-Forum. Alle Rechte vorbehalten.
Copyright ©Design: Manuela Kulpa ©Rechte: Günter Kramer
Eine Verwendung der Inhalte in anderen Publikationen, auch auszugsweise,
ist ohne ausdrückliche Zustimmung der Autoren nicht gestattet.