Send mail from ms access (body should fetch from access textbox"in form")

[jhargram]

Hi all,
I am new in Access and I am trying to do some project.
Actually I have a form and in that form I have some textbox with some data and have one commend button. If i click that button then it will open outlook mailbox and in body I need to pull all the data what i have in textbox.


Please guide me to solve this issue. Thanks in advance.

biplab

[redbull]

Easy enough

Okay, basically ignore this first bit of code. This generates an email based on what information is availabe in IE...

 Sub CreateHTMLMail()
        ''''Creates a new e-mail item and modifies its properties'


    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    'Create e-mail item'
    Set objMail = olApp.CreateItem(olMailItem)
    Dim oServMan As InternetExplorer
    Dim Client, aClient, ClientNum, ProbLoc, SMmail, Sum, Desc, SD As String
    Dim iQLS As Long
   
    Set oServMan = GetServMan
    Set otest = New clsSmselect


    otest.SMselect oServMan
 
    Set oServMan = GetServMan
  
        Client = otest.Client
        ProbLoc = otest.ProbLoc
        SMmail = otest.SMmail
        Sum = otest.Sum
        Desc = otest.Desc
        SD = otest.SD
 
    Set oServMan = Nothing
          ''' Assigning things above in outlook mail message.
      With objMail
        .Subject = Client & " / " & Sum & " / " & SD
        .Body = "Ticket Notes: " & Desc
        .To = SMmail
        .Display
        .ReadReceiptRequested = True
      End With
  End Sub

Okay, so seeing what that did above lets fit it for your use...

Sub CreateHTMLMail()
        ''''Creates a new e-mail item and modifies its properties'


    Dim olApp As Outlook.Application
    Dim objMail As Outlook.MailItem
    Set olApp = Outlook.Application
    'Create e-mail item'
    Set objMail = olApp.CreateItem(olMailItem)

          ''' Assigning things in the outlook mail message.
      With objMail
        .Subject = Forms("Formname").txtboxname
        .Body = Forms("Formname").txtboxname
        .To = Forms("Formname").txtboxname
        .Display
        .ReadReceiptRequested = True  'IF you want to enforce a read receipt, keep this part, if not just comment or remove it
      End With
  End Sub

Now, IF IF IF you were to post your form names and text boxes you want to pull from I could assist further. BUT I hope that points you in the right direction.

[redbull]

Safe to assume this worked?

[jhargram]

Thank you redbull. It helps me a lot...

[nickblitz]

how do i edit the code above to extract all the emails from a datasheet with a click of a button? it should open up an outlook new email.

[redbull]

Without knowing much about it... can you post a copy of your DB without the sensitive info? Or explain with greater detail. The first thing that comes to mind is a regex statement, but without specifics.... hard to say