je voudrais envoyer un mail avec en objet : "SAV n° xxx (xxx étant le champ renseigné dans la textBox "sav")
l'adresse mail du destinataire se fera automatiquement en fonction du nom du client renseigner dans la comboBox1. qui ira chercher les adresses mail sur la feuille "code" "colonne C"
et dans le corps du mail une phrase type avec le type de transport (renseigné des les optionsbutton.
j’espère avoir était asse clair sur ma demande et je vous remercie d'avance de votre aide.
j'ai un userForm avec un comboBox qui va chercher les noms de mes clients situé sur la colonne A de la feuil "code". en face de ces nom il y a leurs adresse mail (donc dans la colonne B).
je voudrais inséré les adresses mail automatiquement en fonction du nom renseigné dans le comboBox ?
merci d'avance.
Vous n’avez pas trouvé la réponse que vous recherchez ?
je voudrais que la macro se désactive (et donc que aucun mail se crée) si la cellule E8 est vide.
Sub macro1()
Dim OutlookApp As New Outlook.Application
Dim Mess As Outlook.mailItem, Desti As String
Dim StrSign As String
Desti = [E8]
Set OutlookApp = Outlook.Application
Set Mess = OutlookApp.CreateItem(olMailItem)
With Mess
.Display
.Subject = "Expédition du SAV N° " & [B8]
.HTMLBody = "<HTML>
Bonjour, votre SAV N° " & [B8] & " </gras>" & " vient d'être expédié ce jour par " & [D8] & "
" & _
"
" & _
"Ceci est un mail automatique, merci de ne pas y répondre." & _
"
" & _
"pour toute autres informations concernant un SAV/commande express merci de contacter Marc au :
02-33-58-95-99 ou marc.aluglass@gmail.com" _
+ .HTMLBody
Private Sub CommandButton1_Click()
If Sheets("Feuil2").Range("E8").Value <> "" Then
Rows("8:8").Select
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromRightOrBelow
With Sheets("Feuil2")
.Range("B8").Value = sav.Value 'numéro
.Range("C8").Value = txtDate.Value 'date
.Range("E8").Value = mail.Value 'mail
If Me.transport1.Value = True Then
.Range("D8").Value = Me.transport1.Caption
End If
If Me.transport2.Value = True Then
.Range("D8").Value = Me.transport2.Caption
End If
If Me.transport3.Value = True Then
.Range("D8").Value = Me.transport3.Caption
End If
If Me.transport4.Value = True Then
.Range("D8").Value = Me.transport4.Caption
End If
If Me.transport5.Value = True Then
.Range("D8").Value = Me.transport5.Caption
End If
End With
Call macro1
Unload UserForm1
Else
MsgBox "Erreur"
End If
End Sub
If [E8].Value = "" Then 'vérifie que la case E8 contient bien l'adresse mail
Exit Sub 'interrompt la macro d'envoie de mail, l'userForm continue son travail
End If